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Summary 

The Lewis Research Center of the National Aeronau- 
tics and Space Administration has, since 1950, dealt with 
a variety of turbomachinery airflow problems that have 
challenged current analytical abilities. Typically these 
flows are subsonic or transonic, time varying, and three 
dimensional. Furthermore the physical structures 
affecting these flows, usually turbomachinery blading, 
are also time varying above and beyond simple rotations 
about the axis of the machine. Typical flow problems 
include inlet distortion, aeroelastic instability (e.g., 
flutter), and, most recently, nonrecoverable stall. 

In the mid 1970’s the author saw the need for a com- 
putational tool to transcend these flow field difficulties. 
Although a number of computer programs exist to deal 
with subsets of these problems, a quick review at that 
time showed that almost all such programs withered away 
to oblivion in the combined presence of these difficulties. 
The author therefore set out to produce a computational 
tool to deal successfully with all facets of such problems 
at the same time. 

Two key rules were established at the outset. First, data 
input was not to include empirical information relevant 
to a particular engine, blade, flow field, or otherwise. 
This requirement has been the downfall of many other 
programs. Such programs tend to be “tweaked” for a 
particular engine or configuration and then fail to predict 
well for a different situation. 

The second key rule was that computational cost was 
not to be considered as a limiting factor (although this 
was not to preclude programming efficiency when 
possible). Historical perspective shows that programs 
that appear unthinkably large in one decade usually turn 
out to be trivially small for the computing equipment of 
the next decade. Since the computational tool to be 
developed was expected to have a long lifetime, it was 
regarded as unwise to accept current computational 
power as a guideline in sizing the program. 

This report presents the theoretical basis of the resul- 
ting computational tool and discusses (briefly) the 
current implementation of the tool. No results are 
reported since only incomplete results were obtained 
before the project was discontinued for nontechnical 
reasons. Because of the scope and volume of the work, 
other facets of the work (usage instructions, problem 


statement details, etc.) are held in abeyance for future 
reporting. 

Introduction 

CASPER is a collection of computer routines that 
provide a solution or, more precisely, a simulation of 
Navier -Stokes flow through and around arbitrarily 
shaped bodies. Flows calculated are truly three dimen- 
sional, time varying, and viscous. No symmetry is required. 
Flow boundaries may also be arbitrary, nonsymmetric, 
and time varying. 

Traditional solutions to the airflow problem are 
usually Eulerian in nature: a grid is defined within the 
flow field and the flow parameters at each grid point are 
calculated. Usually this approach, which is appealing for 
field theory conceptualizations, is appalling for boundary 
satisfaction. Arbitrary, time-varying bodies will often 
foil the Eulerian scheme completely because of either the 
inability to fit a grid to the flow field or the inability to 
transform the problem (or its solution) to or from some 
solution space. 

The fundamental solution concept in CASPER is the 
Lagrangian aerodynamic element (aeroelement). This 
simple approach of “observing” a vast number of “air 
balls” as they proceed through a test area exchanges the 
nightmare of field theory computation for the nightmare 
of data-base management and computation. The solution 
validity hinges on the assumption that a large collection 
of small-scale, discrete Navier-Stokes solutions involving 
an aeroelement and several of its nearest neighbor 
aeroelements (also referred to just as neighbors) will 
closely approximate a large-scale, continuous solution of 
a Navier-Stokes flow. If this assumption is valid (which 
current experience would seem to indicate is the case), 
CASPER becomes mostly an effort in bookkeeping and 
computational effectiveness. 

CASPER follows each individual Lagrangian 
aeroelement as it moves through the defined boundaries, 
maintaining a complete supply of information about the 
aeroelement. This information includes the position, 
velocity, acceleration, temperature, pressure (including a 
history of recent aeroelement pressures), volume 
(including a history of recent aeroelement volumes), 
mass, and list of nearest neighbors. Motion through the 
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defined boundaries is in short, iterative steps. Each such 
step involves a complete data-base revision sequence, 
resulting finally in revised values for the acceleration of 
each aeroelement. (CASPER performs these calculations 
in a consistent set of mass-length-time units; that is, 
regardless of what unit system is used to supply 
information to CASPER, it is assumed that a unit force is 
equal to a unit mass times a unit length divided by a unit 
time squared.) 

Another key feature of CASPER is that the data for 
each aeroelement are accessible individually from those 
of all other aeroelements. By arranging the calculation 
sequence into phases that segregate inputs from outputs, 
CASPER can be worked on in parallel during any given 
phase of calculation. The Parallel, Asynchronous 
Executive (PAX) provides the management services 
necessary to calculate results in parallel (ref. 1). 

CASPER is currently resident on a UNIVAC 1100/42 
computer system operating under the EXEC VIII 
operating system. The problem used for CASPER testing 
required some 100 million bytes of mass storage for 
holding aeroelement data and problem description 
information. This test problem was considered small in 
comparison with real problems of current interest in the 
aeropropulsion industry. 

This report details the theoretical basis of CASPER, 
suggests the basic Navier-Stokes simulation iteration, and 
touches upon some implementation details. Although the 
basic algorithms appeared to be operational, work was 
terminated before complete results could be obtained that 
would support any success or failure judgments. 
Therefore no computational results are presented in this 
report. 


Symbols 

A presumed surface area of an aeroelement 

a acceleration 

b second-order tensor transformation coefficients 

C coefficient relating fluid normal stress to fluid 

normal strain rate in a Newtonian fluid 

C H t coefficient of interaeroelement conductive heat 

transfer 

c v coefficient of specific heat at constant volume 
e • fluid strain rate 

/ generic functions 

g acceleration of gravity 

h gradient direction of gravitational potential 

J Jacobian operator (i.e., the matrix of second 

partial derivatives) 


Pht power of interaeroelement conductive heat 
transfer 

p static pressure 

R ideal-gas constant 

5 fluid stress 

T aeroelement static temperature 

t time 

U aeroelement internal energy 

u velocity 

W c work of aeroelement compression 

W d work of aeroelement viscous distortion 

x coordinate direction, or position in a coordinate 
frame 

5jj Kronecker delta function (6=1 for i~j; 6 = 0 for 

i*j) 

6 sum of fluid normal strain rates 

X coefficient relating fluid normal stress to fluid 
shear strain rate in a Newtonian fluid 

fi first coefficient of viscosity 

fx' second coefficient of viscosity 

p static density 

Subscripts represent coordinate directions unless other- 
wise noted. 

Theoretical Basis 

Overview 

CASPER exists not as a single program but as a library 
of aeroelement data-base modification modules. Each 
module provides one modification of the aeroelement 
data base. It is only when the user causes these modules 
to be executed in succession that a Navier-Stokes flow 
simulation occurs. 

The following sections highlight the theoretical basis 
behind some of the modules. The discussions are oriented 
toward individual computational goals and occasionally 
overlap several software modules. The implementation of 
the theory in actual modules is discussed in a later 
section. 

Aeroelement Accelerations 

Aeroelement accelerations are based on the Navier- 
Stokes equation derived below. The derivation is drawn 
from reference 2. 

Consider the aeroelement mass shown in figure 1 . The 
net elemental fluid stress in the X\ direction is 


2 


dS 21 



dh 1 dS u 


<*i= + t 


dxj p dX{ 


(4) 


The fluid is assumed to be Newtonian in nature, which 
confers upon it the following properties: 

(1) The fluid is isotropic. 

(2) The pressure p contributes directly to normal 
stresses. 

(3) Shear stresses are linearly related to shear strain 
rates. 

If the coordinate system is taken to be that of the 
principal stresses and strains (which coincide for isotropic 
fluids), it is then assumed that 


$11 = -p + Ce 11 +X^ 22 + ^33 


$22 = ~P + ^1 1 + C e 22 + ^33 


(5) 


Figure 1. — Elemental fluid mass. 

S33 = -/? + Xei 1 + Xe 2 2 + ^33 


(^~-dx^jdx2dx-i+ ^~-d x 2^ dx^dxi 

+ (^ d ~dx^dx i dx 2 = d -~ dx i dx 2 dx i 


where S /7 is the principal fluid stress in the x t coordinate 
direction and e^, the fluid strain rate, is 

_ 1 / duj duj \ 

(1) Sij ~ 2\aScy + dxj 


The force of gravity always acts in the negative h 
direction. The force of gravity in the x\ direction is then 

- gp dx 1 dx 2 dx-} (2) 

OX I 


These equations can be rewritten as 


S\ 1 — — p 4- \0 + 2p€\ j 
S 22 = ~P + A# + 2/x^22 


$33 = -p + \6 + 2pe 33 | 


( 6 ) 


where g is the acceleration of gravity and p is the density 
of the aeroelement. By equating force to mass times 
acceleration (and thus assuming constant aeroelement 
mass), the following result is obtained: 


pdx\dx 2 dx^a\ = - gp dx\ dxidx^ + dx\dxidx^ 


where 


2 p = C - A 


d = e\\+e 22 + ^33 


These equations can in turn be generalized as 


® S/nn ~ P^mn 4" 4~ ^P e mn 


(7) 


or 

dh 1 BS n 
S dx\ + p dxj 

where a x is the acceleration of the aeroelement in the first 
coordinate direction. This equation can be generalized 
for each axis as 


Transforming to a primed, nonprincipal coordinate 
system gives 

$ij = bmfinjSmn 

= bmfinji ~ P^mn 4" 4~ 2p£m«) 

— ( ” P^mn 4 " mn)b mft nj 4 " ^^mi^nj^mn 

= — pSjj -f \6djj 4- 2p,elj (8) 
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By dropping the primes the general relation 


or 


Sy— —pdy+)sBf>ij + 2iiey (9) 

is obtained. The second coefficient of viscosity, 
fi' = A + 2/3/x, is introduced and the relation becomes 

S ( y = -pdjj + (^i ' - ^ ^ 6b fj + 2 ixeij (10) 


Substituting this expression into equation (4) produces 



This equation is the Navier-Stokes relation and is used to 
obtain accelerations aj based on the velocities and 
pressures of the aeroelements. 

Calculation of Derivatives 

CASPER calculates the derivatives of scalar quantities 
by inverting a Taylor series approximation to the 
function. The approximation is centered about the 
aeroelement location at which the derivative values are 
desired. The multidimensional Taylor series for a scalar 
function is 


f(x + Ax ) =/CT) + V/(3T) AT 

+ ^a r 7 >[/(**)]Ar+ ... ( 12 ) 

where 


/l/w}= 


d 2 f(T) 

d 2 f(F) 

d 2 f(xl 

dx\ 

dx\dx 2 

dx\dx 3 

d 2 f(D 

d 2 /m 

d 2 fm 

dx 2 dx\ 

dx% 

dx 2 dx 3 

d 2 f(T) 

d 2 f(r) 

d 2 f(xl 

dx 3 dxi 

dx 3 dx 2 

3*3 


This expression can be restated to consider the change in 
function value between two points in space as 

f(T+ Ax*) -f(T) =V/(.T) Ax*+ ^ A,r r /[/(F)]Ax’+ ... 


A/=V/(x)Ax + { -Ax t J^{x)\Ax + ... 


(13b) 


In CASPER, it is arbitrarily assumed that terms beyond 
the second order are negligible. Thus the truncated 
equation can be written in its expanded form as 

I A*i \ 

4* 2 I +i(4*,A, 2 A* 3 ) 

Ax 3 / 


(14) 

In the following equation (as well as in subsequent 
equations of this section only), the subscript of the 
function value and the second subscript of position 
coordinates refer to values obtained with respect to the 
identified point in space. The first subscript of position 
coordinates identifies the coordinate direction as in 
previous equations. Thus represents the change in 
value in the second coordinate direction from the 
aeroelement position to the point “/” in space. 

With this new subscript form in mind, equation (14) 
can be further expanded by using values from 
aeroelement neighbor and the aeroelement itself as 



3y 

32/ 

32/ 

3xj 

3x^X2 

3xj3x3 

32/ 

32/ 

32/ 

dx 2 dx\ 

3x^ 

dx 2 dx 3 

32/ 

32/ 

32/ 

dx 3 dxi 

dx 3 dx 2 

3x3 


4/ <- J^ 4/l ' + W, AXll+ l ( a *l/A*2, A* 3i J 


32/ 32/ 32/ 

fo2 A * 1,+ dxidx 2 AX2,+ dxidx 3 AXh 

32/ 32/ 32/ 

dx 2 dxi Xll+ dx% X2,+ dx 2 dx 3 Xh 

32/ 32 / 32/ 

3^3x7 AXl,+ lx^xl AX2i+ 3jcf AX3 ' 


(13a) 


(15a) 
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, d 2 f d 2 f 

Ai5i+ -e&S*''**** 


b 2 f 32/ ^2/ 32/- dlf 32 f , ") 

+ 3^7 AX2 ' Ax ‘ /+ a^ AX2,+ a^3^ AX2,AX3 ' + a^7 AX3 ' Axi ' + 3^a^ AX3,AX2 ' + a^ Ax3 'j 


If nine neighbor positions were available, the following matrix equation could be written: 


Ax u Ax 2 \ Ax 3X l AAx]i ] /iAx2\ 'AAx\\ Ax u Ax 2 \ Ax 2 [ Ax^\ Ax^Axh 

Ax \ 2 Ax 22 Ax 32 ViAx \ 2 ViAx \ 2 1 / 2 Aa '32 Ax ] 2 Ax 22 Ax 22 Ax 32 Ax 32 Ax ]2 


Ax \ 3 Aa 23 Ax 33 ZzAx 2 3 ZzAx 23 VzAx \ 3 Ax x 3 Ax 23 Ax- 23 A.v 33 Aa- 33 Ax- 13 


A Aj 4 Aa 2 4 AA'34 ViAx 2 \4 ^2 A A 24 ‘/2Ax 34 A A] 4 Aa *24 Ax 24 Aa' 3 4 Ax 34 Ax u 


Ax X5 Ax 25 Ax 35 ZzAx 2 5 ZzAx 25 ViAxls Ax- 15 Ax 25 Axr 2 5^^35 Aac 35 Aaci 5 

Aa 16 Aa 26 Ax 36 ZzAx 2 6 ZzAx 26 ZzAx 36 Ax 16 Ax- 26 Aa 26 Aa- 36 Aa* 36 Aa 16 


AX)7 Ax 27 Aa 37 I/2 A a* 17 ZiA a 27 /2AA37 Ax x 1 Ax 21 Ax 21 Ax 31 Ax 31 Ax x1 


_d}/_ 

dx x dx 2 


Ax i 8 Aa 2 8 Ax 38 Zi A X\ 8 Zi A a* 2 8 ^Ax^ A^| 8 Aa 2 8 Ax 2 ^Ax 3 ^ Aa' 38 Aa' 18 


d*f 

dx 2 dx 3 


Ax X9 Ax 29 Aa 39 ZiAx 2 9 ZiAx 29 ZiAx 2 9 Ax X 9 Ax 29 Ax 29 Ax 39 Ax 39 Aa 19 


Jlf _ 

dx 3 dx] 


Given the aeroelement positions and the function values 
involved, this matrix equation could be inverted to yield 
all of the first and second derivatives of the scalar 
function at the location of the target aeroelement. It is 
assumed that only the derivatives 


A ,v 1 2 Aa'22 A.X ‘32 '/: A.vj 2 A.V22A.V32 


’ - A A' ] 3 A A 23 Aa*33 'AAa'73 A.V23A.V33 


bf_ bj_ bf_ 32 / 32 / 

dx\ ’ dx 2 ’ dx 2 ’ ’ an dx 2 dx 2 


A-V 1 4 A.V 2 4 AA34 '/^AA'ia AA' 2 4AA'34 


A\'i5 Av 2 5 Aa‘35 ‘/’Aa'i's Aa'2sAa' 3 s 


are nonzero. Thus the matrix equation is reduced to 
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This matrix, when inverted, yields two second-order 
derivatives that are not generally needed. Therefore 
CASPER algorithms invert only the first three rows of 
the matrix; however, this does not prohibit future 
implementations from performing the full inversion of 
the 9-by-9 matrix, should conditions warrant this. 

CASPER provides an inversion (as specified above) of 
equation (17) for every aeroelement. Application of the 
inverted-matrix result quickly provides the gradient of 
any scalar quantity whose values are known on an 
aer oelement-by-aeroelement basis . 

Some CASPER algorithms must calculate second 
derivatives of quantities. Since the CASPER derivative 
calculation procedure does not compute the information 
necessary to obtain these second derivatives directly, an 
alternative scheme is followed. In these cases the first 
derivatives of the quantity are calculated for all aero- 
elements in the normal manner; subsequently, the deriva- 
tives of the calculated first derivatives (in effect, the 
second derivatives of the quantity) are calculated by the 
same procedure. 

Fluid Element Movement and Physical Boundaries 

The most difficult task within CASPER is the 
movement of aeroelements through realistic physical 
boundaries. Two simplifying assumptions have been 
made. First, physical boundaries must be describable as 
mathematical entities rather than as collections of points 
in space. Second, the parameters governing these 
mathematical entities must be explicitly known during the 
period of time that motion is to take place. 

The first assumption leads naturally to the formulation 
that any boundary is described as the locus of points in 
space-time for which 

mt)= 0 (18) 

If 

f(X,t) >0 

the point in space-time is in the portion of space that is 
not occupied by the physical object behind the boundary. 
If 

f(r,t) <o 

the point in space-time is in the portion of space occupied 
by that physical object. 

Clearly, finding one such function that will suffice for 
any real problem (e.g., an axial-flow turbomachine) is a 
practical impossibility. Thus CASPER allows the range 
of influence of a given boundary to be limited by other 
described surfaces (known as surface truncations) and for 
many such truncated surfaces to be, effectively, 


> concatenated into any desired combination. Mathemati- 
cally, truncation can be stated as follows: If for all 
indicated truncation surfaces /, 

>0 

then 

=/c*;o (i9) 

otherwise 
f<X>t) =1 

As currently implemented, truncation services can be 
nested to any practical depth. This allows truncation 
surfaces, themselves, to be truncated. 

The concatenation of surfaces is a byproduct of 
surface truncation rather than a true mathematical 
conjunction mechanism. Since a truncated surface will 
always return a safe (nonviolating) surface value outside 
its range of influence, the problem description is free to 
supply another surface in that area of space-time. Thus, 
by limiting the range of influence of each surface, many 
surfaces can be provided to describe complex shapes. 

Another key feature of the surface truncation 
mechanism is that the distinction between safe surface 
values obtained by truncation and those obtained by 
nontruncated surface evaluation is retained and available 
to the user. This feature is useful in defining other spatial 
structures. 

Actual surfaces defined in CASPER also provide the 
gradient of the surface function and the velocity and 
acceleration of any point in space that is moving in free- 
body synchronism with the surface. These values are 
available everywhere in the space-time continuum with 
the possible exception of points of singularity for the 
surface function. These additional surface characteristics 
are always evaluated without regard to any described 
surface truncations. It is up to the invoking algorithm to 
establish the validity (or influence) of a given surface 
before using these additional characteristics. 

The second major assumption, explicit knowledge of 
parameters, is necessary for the segregation of inputs and 
outputs. One of the goals of CASPER was a high degree 
of interaction between aerodynamic forces and structural 
motion; however, to include such interactions at the 
incremental aeroelement motion level would have given 
rise to a logical loop without resolution. 

Thus the shape of all objects in a CASPER problem 
must be explicitly known at the outset of each incremen- 
tal motion calculation. Time variations are allowed 
provided that they are explicitly known, as other 
parameters are, at the outset of computation for the 
incremental period. (Indeed, within the CASPER surface 
evaluation package, time variation parameters are 
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indistinguishable from all other parameters; only within 
the incremental motion package is a space-versus-time 
distinction made.) 

This restriction does not inhibit relating aerodynamic 
force and structural motion. Instead, such considerations 
are moved to the point in time (truly a point, i.e., a span 
of zero duration) between successive incremental motion 
periods. At that point, surface parameters can be set to 
new values according to any desired scheme. Typically 
the newly revised aerodynamic load history would be 
used to project a new structural motion for the next incre- 
mental motion period. Presumably this new motion 
would affect the aerodynamics of the upcoming incre- 
mental motion period. 

The process of aeroelement motion begins simply with 
the integration of the aeroelement accelerations. These 
accelerations are assumed to be constant through the time 
period. Thus 

rt + At 

Uj(t + A/) = W/(f) + j ^ Cljdt 

= Ui(t) + tf/A/ (20) 

and 

p/ + At 

Xj(t + At)=Xj(t)+ 1 Uj(t)dt 
J t 

= x i (t) + u i (t)At+ 1 -a,At 2 (21) 

At this point the constraints of boundaries must be 

accommodated. This is first enforced by requiring 

/[r(f + A0,/ + A/]>0 (22) 

for each appropriate boundary function /. Since 
boundaries that do not apply will presumably fall to 
surface truncations and report values for / of + 1, this 
condition is sufficient. However, it soon becomes clear 
that for realistic problems the calculation burden of com- 
paring millions of aeroelement positions to thousands of 
surfaces would best be avoided. 

CASPER reduces this effort by requiring the definition 
of flow zones in the problem statement and the listing of 
any and all boundaries resident (in whole or in part) in 
each flow zone. Flow zones are defined by surfaces 
(usually truncated) in the same manner as physical 
boundaries. The condition for residence in a flow zone is 

(23) 


where /is appropriate for the particular flow zone and is 
not determined by truncation of the surface (i.e., if the 
surface evaluation encounters truncation and returns the 
automatic value of +1, the point of evaluation is not 
considered to be in the described flow zone). CASPER 
determines and retains for each aeroelement the current 
flow zone of residence. By reviewing the resident 
boundary list for the appropriate flow zone, the number 
of comparisons necessary to satisfy the conditions of 
equation (22) can be reduced. 

Additional information establishing the neighbor flow 
zones for each flow zone is used to narrow the range of 
search when an aeroelement flows out of one flow zone 
and into another. Current implementations of CASPER 
do not support automatic, time-varying alterations of the 
information on flow-zone neighbors or flow-zone 
resident boundaries. However, there is nothing in the 
CASPER algorithms that prohibits the change of such 
information on a dynamic basis. 

When aeroelement motion results in boundary 
violation (as in fig. 2), the point of violation is found by a 
simple bisection iteration, where the bisected variable is 
time and position is treated as parametric in time. When 
this point of violation is found, corrective measures 
are applied to the aeroelement datum to alter its path 
through space from the point of violation. First, the 
velocity of the aeroelement is reset in a calculation that 
equates the angle of incidence to the angle of reflection. 
Thus the aeroelement bounces elastically at the point of 
violation. This calculation is carried out with respect to 
the motion of the surface at the point of violation. In this 
way, if the aeroelement is motionless and the boundary is 
moving, velocity is imparted to the aeroelement to move 
it out of the way of the boundary. Second, if boundary 
violation occurs without apparent motion of the 
aeroelement normal to the boundary, the acceleration of 
the aeroelement normal to the boundary is set to zero. 
This corrects problems that can occur when the aero- 

Boundary 



Figure 2. — Boundary violation. 


7 



element is differentially close to the boundary and has an 
acceleration that, at least in part, is into the boundary. 
(In this instance it can become computationally 
impossible to locate any point forward in time, even after 
velocity alteration, that does not produce a boundary 
violation.) 

This formulation of boundary violation checking 
works well for surfaces with large object depths; 
however, for thin objects (such as corners and edges) a 
phenomenon referred to as “passthrough” becomes a 
problem. Regardless of the duration of the incremental 
motion period, sharp corners will fail to deflect some 
aeroelement paths that should be deflected (fig. 3). To 
reduce this effective dulling of sharp edges, the initial 
urge is to shorten the motion time, thus reducing the 
distance traveled between boundary checks. Although 
this is effective, it can also be quite costly since it brings 
with it increased resolution in the entire Navier-Stokes 
simulation process. CASPER offers an alternative by 
allowing the calculation of a user -specified number of 
intermediate aeroelement positions, which are all based 
on the original position, velocity, and acceleration 
information. 

The intermediate-positions option allows the user to set 
the flow field resolution and the edge sharpness indepen- 
dently, provided that the edge sharpness is the more 
restrictive constraint. It is, of course, desirable not to 
oversharpen edges, since this still requires additional 
surface comparisons. It is expected that future 
implementations of CASPER will adjust edge sharpness 
dynamically. Probably a lower sharpness limit will be set 



Figure 3.— Boundary passthrough phenomenon. 


and will be increased from that point in proportion to the 
proximity of the boundary to the aeroelement. 

Finally CASPER provides the ability, on an 
aeroelement-by-aeroelement basis, to disable the stan- 
dard aeroelement motion algorithm from repositioning 
an aeroelement. In this event it becomes the user’s 
responsibility to provide and invoke routines that move 
(or do not move, as appropriate) the affected aero- 
elements. This feature is intended, principally, for the 
simulation of boundary layer flows by attaching some 
aeroelements to the boundaries while other aeroelements 
flow past the attached aeroelements. 

Thermodynamic Effects 

All thermodynamic calculations in CASPER result in 
power quantities that, when multiplied by the time 
increment duration, give the amount of work transferred 
into a particular aeroelement. CASPER computes for 
each aeroelement the power of compression, the power of 
viscous aeroelement distortion, and the rate of heat flow 
(adjusted to units of power). In all cases flow of energy 
into the aeroelement is taken to be positive. At an 
appropriate time in the Navier-Stokes simulation loop, 
these powers are summed, multiplied by the time 
increment duration, and used to alter a total, internal 
energy value for each aeroelement. This internal energy is 
then related to aeroelement temperature through a simple 
coefficient -of-specific-heat relation. 

From fundamental thermodynamics the compressive 
work done on an aeroelement is 

W c =\pdv (24) 

The CASPER data base records the five most recent 
pressure and volume values for each aeroelement. The 
three most recent of each of these values (the most recent 
of which is the current value for the aeroelement) are 
used to establish parabolic approximations for pressure 
and volume as functions of time. These approximations 
are substituted into the expression for the work of 
compression, and the result is parametrically integrated 
from the time of the previous pressure and volume value 
to the time of the current values. Although currently the 
pressure and volume histories must be equally spaced in 
time, this constraint can be removed, if necessary, by 
simple programming (i.e., no other CASPER module 
depends on the spacing of pressure and volume histories). 
Finally the work of compression is divided by the time- 
increment duration to establish an equivalent power. 

The power of viscous distortion arises from the 
resistance of the fluid to deformation. As delineated in 
reference 3, given the Newtonian fluid assumption of the 
Navier-Stokes equation, the distortion work can be 
calculated as 
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W d = v +M 2Si2 + W3S 13 ) 

+ -7^-{U\S2\ + W2^22 + m 3^23) 

+ — (u i S3 1 + M 2 S 32 + W3S33) J 

<25) 

From equation (10) this becomes 

w d= v ^ (V - |m)% + 2/u?^J (26) 

Again, the computed work is divided by the duration of 
the time increment to obtain a power-of-viscous- 
distortion value. 

Finally simple conductive heat flow between neighbor 
aeroelements is considered. Heat flow per unit time is 
simply taken to be proportional to the difference in the 
temperatures of the two aeroelements, the average of the 
heat transfer coefficients, the average presumed surface 
areas of the aeroelements, and the inverse of the distance 
between them. Thus 

( Tj - Tj) (C H t, + C ht ,) (Aj + A ,) 

P HT = (27) 

where the subscripts / and j denote distinct aeroelements 
and Dy is the distance between those aeroelements. This 
computation yields a power term directly. It is only 
important to assure that the units of the coefficient of 
heat transfer are such as to yield a number consistent with 
the previously determined powers of compression and 
viscous distortion. 

When all of the sources of energy are accounted for, 
the aeroelement temperature is revised on the basis of the 
assumption 


AU=c v AT (28) 

where c v is the coefficient of specific heat at constant 
volume. 

Convective heat transfer is not considered explicitly in 
the thermodynamic model since aeroelements are not 
constrained against intermixing. Aeroelements are not 
algorithmically required to maintain the same neighbors 
throughout the iterative loop process. Aeroelements are 


free to follow independent paths through space, intermix 
with new neighbor aeroelements, and transfer heat with 
these new neighbors. This provides a crude convective 
heat transfer mechanism. 

Pressure and Volume Calculations 

CASPER provides the ability to calculate the current 
pressure and volume of aeroelements from current 
temperature, mass (which never changes throughout the 
computational lifetime of an aeroelement), and prox- 
imity of neighbors. Fundamental to this calculation is the 
estimation of volume. CASPER begins the volume 
estimation process by averaging the distances from the 
subject aeroelement to each of the nearest neighbors of 
the aeroelement. This value is then used as a radius for a 
simple spherical volume determination. 

It was forseen that a correction would be needed to 
accommodate aeroelements with a vacuum on one side 
and fluid on the other side. In this case an aeroelement 
with a large volume on one side would be miscalculated 
as having a normal volume on the basis of the proximity 
of neighbors on the other side. Therefore a correction 
based on the solid angle subtended by the nearest 
neighbors of the aeroelement was implemented. This 
angle is compared with the average solid angle for all 
aeroelements (usually obtained during the previous 
simulation cycle). As the solid angle of a particular 
aeroelement deviates below average, the initial volume 
estimate for that aeroelement is increased. Solid angle 
deviations that are above the average cause the 
aeroelement volume estimate to be decreased. However, 
the algorithm is such that the response to above-average 
solid angles is much less than to those below the average. 
Above-average solid angles would seem only to indicate 
an unusual dispersion of nearest neighbors about an 
aeroelement that is, in fact, fully immersed in the fluid 
continuum. 

It is clear that these initial estimates will not be correct 
in an absolute sense but will be proportionately correct 
on an aeroelement -to-aeroelement basis. Thus a final 
correction is begun by summing all of the aeroelement 
volume estimates and comparing the result to the known 
total volume of the flow zones of the problem. A simple 
multiplicative correction factor is then produced and 
applied to the volume estimate of each aeroelement to 
convert proportionately correct values to absolutely 
correct values. 

With the volume result available, the calculation of the 
density of each aeroelement (given the mass of that 
aeroelement) is trivial. Calculation of the pressure of 
each aeroelement (given the previously determined 
temperature of the aeroelement) is done through the 
ideal-gas law 

p^pRT (29) 
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CASPER supplies this gas law as a subroutine. Thus 
alternative gas laws (including table-lookup style laws) 
can be substituted merely by supplying an appropriate 
subroutine of the same name. In this way, real gases can 
be supported by the ingenious CASPER user. 

Establishing Neighbor Aeroelements 

Many CASPER algorithms hinge on knowing the 
identification of several (currently five) nearest-neighbor 
aeroelements for each aeroelement. This is primarily a 
bookkeeping chore and represents no theoretical insight 
at all. The criterion for selecting nearest neighbors is a 
straightforward center-to-center distance comparison of 
the aeroelements. The principal goal of nearest-neighbor- 
finding algorithms is to limit the computational cost by 
limiting the number of nearest -neighbor candidates. 
CASPER offers three nearest-neighbor-finding algo- 
rithms: (1) a full exhaustive search, (2) a search limited by 
flow zone relations, and (3) a search through the current 
nearest-neighbor tree. 

The exhaustive-search algorithm for finding nearest 
neighbors of a particular aeroelement (referred to as the 
target aeroelement) is very simple. The distance from the 
target aeroelement to every other aeroelement in the 
population is computed and compared with the current 
list of nearest neighbors. If the new distance is shorter 
than the distance to one of the current nearest neighbors, 
a simple ordered-list replacement (which discards the 
furthest nearest neighbor and inserts the new nearest 
neighbor at the appropriate point in the list) is 
performed. This nearest-neighbor finder may produce 
dubious results in an algorithmic sense since no 
consideration is given to the possibility that boundaries 
may exist between the aeroelement and its selected 
neighbors. This is called bogus-nearest-neighbor- 
syndrome (BNNS). 

The flow-zone-related search algorithm limits the 
number of nearest-neighbor candidates by requiring each 
candidate to be resident either in the flow zone of the 
target aeroelement or in a flow zone that is a neighbor to 
the flow zone of the target aeroelement. This approach 
can eliminate the problem of bogus neighbors being 
selected from flow areas that are physically close but 
problematically far. The improvement in search time is 
clear but may not be sufficient if there are still large 
numbers of aeroelements in each flow zone. If this 
nearest-neighbor search algorithm is to be used 
extensively, it is vital that the problem statement be 
designed with a feasible average number of aeroelements 
per flow zone. 

The nearest-neighbor-tree search allows the user to 
specify an arbitrary number of candidates for inclusion in 
the nearest-neighbor search, thereby providing firm 
control of the search time. Candidates are drawn from 
the current nearest-neighbors tree for the target aero- 


element (i.e., the current neighbors of the target aero- 
element, the current neighbors of the neighbors of the 
target aeroelement, the current neighbors of the 
neighbors of the neighbors, and so on). Checks are made 
to ensure that redundant entries are not made in the 
neighbor tree and that the target aeroelement does not 
become its own nearest-neighbor candidate. This 
algorithm attempts to restrict BNNS by requiring that 
candidate aeroelements reside either in the flow zone of 
the target aeroelement or in a flow zone neighbor to the 
flow zone of the target aeroelement. This approach also 
assumes that the initial neighbor tree was an essentially 
valid, well-cross-linked representation of the true 
neighbor structure (in particular that, if followed far 
enough, the neighbor tree would eventually involve all 
aeroelements in the population). If the initial tree were 
not valid (for instance, if the target aeroelement and its 
five nearest neighbors all listed each other as neighbors), 
the neighbor-tree search algorithm would do nothing to 
improve the validity of the nearest-neighbor list of the 
target aeroelement. 

Aeroelement Relocation 

Most problems involve the flow of fluid from a source 
area through a test area to an exhaust area. To provide 
a supply of new aeroelements for the source area, 
CASPER extracts all aeroelements from the designated 
exhaust area, combines them with all aeroelements 
currently resident in the source area, and reinitializes the 
entire set of aeroelements (provided it is nonnull) in the 
source area. This requires a complete resetting of the data 
base of each such aeroelement, including new position, 
velocity, mass, and temperature. The user is required to 
provide problem-specific routines that generate realistic 
numbers for this process. This facility can be disabled to 
allow closed-circuit or closed -box systems to be modeled. 
In this case, the user-supplied routines, if called, will 
simply take no action. 

Note that during this relocation phase, the user has the 
opportunity to simulate various interesting conditions 
and to effect problem control adjustments. For instance, 
in providing information about aeroelements being 
relocated to the inlet, the user could model inlet 
distortions in both pressure and temperature. Also, the 
user could perform acts such as adjusting the tempera- 
tures of aeroelements in combustor flow zones to achieve 
or maintain a desired combustor exit temperature 
schedule. The possibilities for user manipulation are 
endless. 

Flow Field Simulation Sequence 

Figure 4 presents a possible sequence of CASPER 
module utilization to simulate a fluid flow. The figure 
does not represent information specific to current 
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1.0 Initialize data base and establish starting conditions. 

2.0 Establish nearest-neighbor relationships. 

3.0 Calculate 

3.1 Aeroelement volumes 

3.2 Aeroelement densities 

3.3 Aeroelement pressures 

4.0 Establish derivative calculation matrix for each aeroelement. 

5.0 Calculate Navier-Stokes accelerations for each aeroelement. 

6.0 Calculate 

6. 1 Aeroelement powers of compression 

6 . 2 Aeroelement powers of viscous distortion 

6. 3 Aeroelement conductive heat transfers 

6.4 Aeroelement temperature changes 

7.0 Adjust boundary parameters to reflect boundary conditions 

for next aeroelement motion period. 

8.0 Move aeroelements through space by integrating accelerations. 

9.0 Remove aeroelements from the exhaust zone, insert them in 

the inlet zone, and reinitialize inlet zone aeroelement data. 

10.0 Go to step 2.0. 

Figure 4. — Possible flow simulation sequence. 

CASPER implementation but rather covers only the 
fundamental logic of the approach. The most striking 
feature of the sequence is that there is no exit. CASPER 
does not search for any convergence condition. Instead it 
continues to produce flow results without end. A settling- 
in period exists when problem simulation first begins; 
however, it is up to the user to identify the end of this 
period since CASPER cannot recognize it on its own. 

Two additional problems intertwine themselves in 
CASPER problems: inducing flow, and isolating the test 
area from unintended inlet and exhaust area distortions. 
Figure 5 shows a diagram of a simple flow problem that 
illustrates simple solutions to both these problems. 

First, a fluid does not start flowing by itself. At the 
very least, a pressure gradient or gravitational force must 
be applied to obtain continuous fluid flow. Simply 
placing aeroelements in a test area does not accomplish 
this. One could supply sufficiently massive aeroelements 
to the inlet zone of the example problem during each 
aeroelement relocation phase to maintain a given inlet 
plenum pressure or a given inlet pressure ratio between 
the inlet and exhaust plenums. This would not provide 
independent control of the two plenum pressures (which 


could be a problem requirement). Furthermore the 
validity of flow-to-vacuum simulations is in some doubt. 
This could cause aberrations of the results upstream of 
the vacuum face. 

A second alternative could be for a user routine to 
selectively remove mass from exhaust plenum 
aeroelements. This would provide independent control of 
plenum pressures. The difficulty with this approach is 
that the rationale for selecting the mass reductions is not 
nearly so clear as that for initializing aeroelements in the 
inlet plenum. Should all exhaust plenum aeroelements be 
reduced in mass or only those toward the rear of the 
plenum? Should a uniform pressure distribution or a 
pressure gradient result? Should temperature or velocity 
be adjusted too? Individual users may wish to assert and 
implement their own answers to these questions (which 
would be entirely possible within the existing CASPER 
framework); however, the author sought a third 
alternative. 

The flow-induction alternative the author selected was 
to model an additional part of the apparatus that would 
be used in an actual experiment: a centrifugal exhauster. 
This approach strikes a blow both at inducing flow and at 
isolating poor flow simulations from the test area. In 
using this approach, it is necessary to admit that flows in 
the exhauster may not be realistic. However, the author 
feels that expecting flows upstream of the exhauster to be 
realistic is a much more comfortable idea. Furthermore 
there are no questions to ask about mass removal. 
Aeroelements are driven around in a circle by the 
exhauster blading until centrifugal force drags them out 
into the exhaust zone, where they disappear into the 
aeroelement relocation algorithms. Also, exhaust plenum 
pressure is controlled by adjusting the rotational speed of 
the exhauster model. 

Implementation 

Overview 

The implementation of key CASPER modules is 
presented here to add corroborative detail in the absence 



Figure 5.— Cross section of a simple flow problem for CASPER. 
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of computational results. The listings presented are 
actual, compiled CASPER code modules. The reader is 
cautioned that the comments contained in these listings, 
while generally accurate and up to date, are not 
guaranteed to represent the exact truth of the code 
presented. As always, the final arbiter of computational 
truth is the language statements and the interpretation 
thereof by the language compiler. The reader is also 
advised that the symbols previously used in this report are 
not (always) used by the CASPER codes presented in the 
listings. In the following discussion of the listings the 
symbols used by the code will be used as they appear in 
the listing. 

Some elements of the CASPER code presented may 
appear confusing because of the parallel-processing 
nature of CASPER. For instance, because of the 
requirements of parallel processing, results are often 
stored in scratch slots for later copying back to the 
formal result slot. It is not within the scope of this report 
to provide a tutorial on parallel processing and thus these 
oddities will be ignored. 

Finally no specifics about the use of these codes for 
actual computation are provided. Information such as 
program building instructions, program use instructions, 
and data preparation is beyond the scope of this report. 

Calculation of Derivatives 

The inversion of a Taylor series to provide derivative 
calculation information is provided by the CASPER 
module INTF presented in listing 1. This module, in turn, 
calls the subroutines MATRIX, DET4, and DET3 
(listings 2, 3, and 4, respectively). The fundamental flow 
of control is to invoke the matrix construction and 
inversion subroutine, MATRIX, for each aeroelement in 
the aeroelement identification range provided to INTF 
(i.e., aeroelement identification numbers in the range IL 
to IH). If MATRIX reports a matrix singularity fault, the 
event is logged (by calling ERROR2, an environmental 
service provided by PAX), and an attempt to clear up the 
problem (by revising the nearest-neighbor list to provide 
a different matrix for inversion) is made by calling the 
subroutine CLNINT (which is not presented as a listing in 
this report). 

MATRIX (listing 2) constructs the 5-by-5 matrix of 
spatial differentials on the basis of the proximity of the 
listed nearest neighbors for the identified aeroelement 
(lines 79 to 84). The partial inversion of the matrix 
proceeds in lines 85 to 105 by the transform-of-cofactor 
method. This method relies on the fact that the inverse of 
a matrix is the quotient of the transform of the cofactor 
matrix divided by the determinant of the matrix. This 
method was selected since it allows partial inversions to 
be calculated. Only the determinant and the cofactors of 
the diagonally reflected term desired need to be 


calculated to determine the inverse matrix entry for any 
particular term. 

Evaluation proceeds in MATRIX by constructing 
4-by-4 matrices (and then, a 3-by-3 matrix in DET4) 
whose determinants are evaluated to provide the 
cofactors of the desired terms. The determinant of the 
original 5-by-5 matrix is evaluated at the first opportunity 
(lines 99 to 101) and a check is made to see if a singularity 
problem exists before any further effort is expended. If a 
singularity problem does exist, the aeroelement is marked 
as not having a current derivative calculation matrix 
(lines 108 and 109) and the problem is reported to the 
calling routine (line 107). If a singularity problem is not 
detected, the final construction and storage of a 3-row- 
by-5-column derivative calculation matrix is performed 
by lines 114 to 119 of the listing. This process includes 
clearing the derivative matrix not-available flag for the 
particular aeroelement. 

DET4 and DET3 (listings 3 and 4) show the 
determinant calculation process reduced to the point 
where the determinant can be calculated directly by 
formula. Although the entire computational strategy is 
crude, it has the advantage of working and already being 
coded and debugged. If CASPER were to be continued 
into a computational production phase, these algorithms 
could be improved remarkably. 

Calculation of Aeroelement Acceleration 

STOK1 and STOK2, the CASPER modules that 
calculate aeroelement accelerations, are presented in 
listings 5 and 6. The computation of the accelerations 
must proceed in two phases since derivatives of terms 
involving derivatives must be calculated. This requires 
that the terms involving derivatives must be calculated 
for all aeroelements before the derivatives of the 
derivative terms can be determined by the application of 
the derivative calculation matrix. Note that each routine 
avoids the acceleration computation entirely if the 
derivative calculation matrix is not available (see line 104 
of listing 5 and line 114 of listing 6). Also, note that 
various aeroelement information is stored in variables 
local to the subroutine to avoid the overhead expense of 
repeated access to values in shared, software-virtualized 
storage. Finally note that these routines calculate the 
contribution of all of the terms of equation (11) except 
the gravitational term. 

The first phase of computation, STOK1 (listing 5), 
proceeds to calculate the derivatives of velocity and the 
fluid strain rate matrix by applying the derivative 
calculation matrix (lines 113 to 129). The full strain rate 
matrix is stored in the aeroelement record for use by 
other CASPER modules. An additional term (whose 
derivative must be determined in the second phase of the 
acceleration calculation) involving viscosity and principal 
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fluid strains is calculated and stored in the aeroelement 
record (lines 130 to 135). 

The second phase of computation, STOK2 (listing 6), 
completes the calculation of aeroelement acceleration by 
the Navier-Stokes equation. A preliminary check of 
aerolement density for approximate equality to zero is 
made (line 1 17) to avoid a possible divide fault (line 165). 
Again, a number of localizations of aeroelement 
information are performed to avoid shared-data access 
overheads. The gradients of the pressure (lines 139 to 
144) and of the viscosity-and-principal-fluid-strain term 
(lines 145 to 150) at the aeroelement are calculated by 
using the standard derivative calculation procedure. An 
implied tensor sum of the derivatives of the product of 
viscosity and fluid strains is calculated by lines 151 to 
163. Finally, on lines 164 to 166, these three principal 
terms are combined to form the aeroelement 
accelerations in each coordinate direction. These 
accelerations are then stored in the aeroelement record. 

This two-phase process completes the computation of 
aeroelement acceleration through the Navier-Stokes 
equation. The only term neglected is the gravitational 
component. It is important to note that, given the data 
base available for each aeroelement, especially the 
derivative calculation matrix, which allows gradients to 
be inferred from the differences in scalar function values, 
the calculation of accelerations through the Navier- 
Stokes equation is almost trivial. 

Aeroelement Positioning and Physical Boundaries 

MOVEL, SURF, and SA100 (listings 7, 8, and 9) 
present key components of the aeroelement positioning 
package. Although the actual logic and programming of 
the aeroelement positioning process (which simply 
integrates acceleration and velocity to establish position) 
can appear to be quite involved, it must be borne in mind 
that underlying it all is a basically simple vision of motion 
through space subject to real boundaries. 

Subroutine MOVEL (listing 7) is the main component 
of the aeroelement positioning module of CASPER. It 
implements the aeroelement acceleration integration 
algorithm and invokes the various boundary evaluation 
services to enforce the boundary constraints of the prob- 
lem. An argument supplied to the subroutine (NINC) 
specifies the number of time subincrement steps to be 
taken to sharpen boundary edges. Again, aeroelement 
information is localized to minimize shared-data-access 
overheads. 

The principal aeroelement positioning sequence occurs 
in lines 304 to 307 of listing 7. The internal subroutine 
SPC (defined by lines 459 to 482 of the listing) projects 
the course of the aeroelement on the basis of the current 
aeroelement position, velocity, and acceleration from 
formulas based on the classic double integration of 


acceleration. The internal subroutine YNM (defined by 
lines 483 to 536) checks to see if the new position violates 
any boundaries in the problem. (Note that the subroutine 
establishes the flow zone of residence for the new 
position and then checks the position against all 
boundaries (1) in flow zone 1 (always) and (2) in the flow 
zone of residence for the new position.) Assuming that no 
problems have occurred in tracking the flow zone of 
residence (line 306), a test is performed (line 307) to see if 
a boundary violation has occurred. Assuming that no 
such violation has occurred (and that corrective measures 
left over from the resolution of such a violation are 
not pending, as determined in line 308), the time sub- 
increment loop is repeated until all of the intermediate 
aeroelement positions have been determined and tested. 
The final aeroelement position and flow zone are stored 
in the aeroelement record by lines 453 to 456. 

The handling of a detected boundary violation is begun 
with lines 375 to 445. A simple bisection loop is 
implemented to determine the position of violation to 
within a small variation (since real computations are very 
seldom exact). To begin this process, lines 375 to 402 are 
concerned with establishing points on both sides of the 
boundary (i.e., one point in violation and one point not 
in violation). Lines 404 to 423 perform a simple bisection 
search, where the bisected variable is time and where 
position is treated as parametric in time. Note that, as a 
safety precaution, this bisection process will always 
terminate after a fixed number of iterations even if the 
required resolution in time (line 405) has not been 
reached. Lines 442 to 445 effect adjustments to 
subroutine variables to cause the next principal position 
loop (lines 304 to 307) to position the aeroelement just 
short of the violated boundary (by adjusting the time 
span variable T), and to cause the course correction 
process to occur when (and if) that position has been 
successfully attained. 

The course correction process is implemented by lines 
309 to 355. The velocity of the aeroelement relative to the 
surface is established (lines 323 to 325), the velocity is 
adjusted by an elastic reflection method (lines 326 to 
336), and the result is converted back to the absolute 
frame of reference (lines 337 and 338). If necessary (line 
339), the component of aeroelement acceleration into the 
boundary (normal to the boundary, relative to the 
acceleration of the boundary) is set to zero by lines 340 to 
350. The need to zero the normal acceleration component 
is determined if, during the bisection process that 
established the point of violation, the nonviolating point 
was never replaced with an updated value. Although no 
theoretical statement exists on this subject, this condition 
is presumed to indicate that the aeroelement is 
differentially close to the boundary already and cannot 
get up the necessary velocity to bounce off the boundary. 
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Thus, to move the aeroelement forward in time, it is 
necessary to disable its ability to violate the boundary by 
at least turning off its acceleration into the boundary. 

This completes the discussion of the principal features 
of the aeroelement positioning process. The boundary 
description services have, for the most part, been 
submerged in calls to the YNM subroutine and in a few 
discrete calls to other boundary services. Listings of 
many of these boundary services are not included in this 
report since they are trivial invocations and 
recombinations of the fundamental boundary service 
features presented in listing 8. 

Listing 8 presents the control point of all boundary 
services, the subroutine SURF. All requests to evaluate 
surface values, gradients, velocities, and accelerations are 
handled by this one, universal, fits-all routine. Control 
within this routine falls into three major categories: (1) 
specification of the desired result and transfer of control 
(lines 547 to 615), (2) handling of the surface truncation 
process (lines 622 to 719), and (3) fundamental surface 
evaluations (lines 724 to 752). 

The desired-result-specification-and-transfer-of- 
control sections simply set various internal variables to 
turn various features of the SURF subroutine on or off. 
The variable ISW selects the computational results of the 
fundamental surface evaluation functions (of which 
listing 9, subroutine SA100, is an example). The variable 
NRTN controls the return of control from the 
fundamental surface evaluation section to the 
appropriate invoker. The surface gradient, velocity, and 
acceleration requests all ignore the surface truncation 
mechanisms and thus transfer control directly to the 
fundamental-surface-evaluation section and receive 
control directly back from that section when surface 
evaluation is complete. The desired-result-specification- 
and-transfer-of-control sections also provide a 
conversion from surface identification number to the 
surface header pointer, IP. 

The fundamental-surface-evaluation section (lines 724 
to 752) provides a simple calling mechanism to invoke the 
appropriate surface evaluation routine and to obtain the 
desired fundamental result (accomplished by lines 724 to 
727). Once a base result is obtained, certain optional 
modifications may be made to it as invoked by the 
requesting section (lines 734 to 739). Finally control is 
transferred back to the invoking code section. 

The surface-truncation-handling section is, by far, the 
most complicated area of code since it is, in fact, a 
recursive code written in a nonrecursive language. If a 
recursion of the truncation process is, in fact, occurring, 
lines 622 to 637 save the current surface context on a 
(software implemented) stack and initiate a new surface 
context by setting the surface description header pointer 
IP. If further truncations have not been inhibited (usually 
by selecting a result-specification-and-transfer-of-control 
section), a check is made to see if truncations to this 


surface exist (line 640). If no truncations exist, control 
is transferred to the fundamental-surface-evaluation sec- 
tion and, upon completion of the surface evaluation, the 
truncation-and-sur face-evaluation process is unwound. 

If one or more truncations do exist, the truncation 
recursion process is begun at a new level. Lines 641 to 650 
perform various initializations associated with the 
truncation process, including locating a list of truncation 
headers that include descriptive information about each 
truncation. The code then loops through each truncation 
header (lines 651 and 652), obtains appropriate 
information from each truncation header in turn (lines 
653 to 665), and recursively invokes the truncation 
process (line 666) to establish the surface value for each 
truncation surface. The recursion process continues until 
a truncation surface is found that does not, itself, list any 
further truncation surfaces. Thus the mechanism of 
truncating truncations to build up complex truncation 
surfaces through spatial concatenation can occur. 

When a truncation surface evaluation finally does 
occur, control is returned to line 672, where a final 
surface value modification obtained from the truncation 
header is applied. This allows the user to use existing 
surfaces by flipping them side to side. The modified 
truncation surface value is inspected by line 673 to 
determine if a truncation has occurred. Truncation 
occurs only if the truncation surface value is definitely 
less than zero. Equality with zero is not considered a 
truncation so that flow zones (which are defined by a 
primary surface and its truncations) can be defined by 
using common separating surfaces (one such being just 
the flip side of the other) without creating a locus of 
points that does not lie in either flow zone (by having a 
separating surface value of exactly zero). 

If surface truncation does not occur, lines 674 to 689 
skip over the truncation header and transfer control back 
to the truncation-header -evaluation loop. If surface 
truncation does occur, the recursion process is unwound 
to the next level (lines 695 and 696) and control is 
transferred either back to the desired-result-specification- 
and-transfer-of-control section or back to the truncation- 
recursion-control section. The effect of transfer back to 
the recursion control section is to declare that since the 
truncation surface was itself truncated, it is therefore 
nonapropos and is passed over in the process of 
truncating its own parent surface. 

Subroutine SA100 (listing 9) is a representative 
fundamental surface evaluation subroutine. This is the 
type of routine that is invoked by subroutine SURF 
(listing 8) in the fundamental-surface-evaluation section. 
This particular subroutine provides a time-invariant 
sphere in space. Four results are always provided by 
subroutines of this class as specified by the switch 
variable ISW: (1) the surface value (line 91), (2) the 
surface gradient (line 96), (3) the surface velocity (lines 98 
and 99), and (4) the surface acceleration (in this case, 
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since the surface is time invariant, also provided by lines 
98 and 99). As can be seen by this example, fundamental 
surfaces are easy to describe and add to the CASPER 
repertoire. 

The separation of surface control parameters for the 
fundamental-surface-evaluation functions into various 
groups (as commented on in lines 54 to 57 in listing 9, in 
the column labeled “TV’ slot”) is also an important 
feature of the CASPER surface description system. It 
allows the easy repetition of groups of parameters (in this 
case, spheres with the same center or spheres with the 
same radius) simply by providing addressing information 
to the same actual parameter images. For spheres the 
economy of this is doubtful, but for more exotic surfaces 
(e.g., a realistic cambered and twisted fan blade that will 
be repeated 30 or 40 times in the same rotor) this feature 
can be a great help in avoiding errors in repetitive data 
entry. 


Calculation of Thermodynamic Effects 

The power of compression is calculated by subroutine 
POWERC, which is presented as listing 10. This routine 
calculates a straightforward parametric integration of the 
pressure-versus-volume history by passing parabolic 
approximations through three pressure points and three 
volume points (performed by lines 87 to 109) and stores 
the result in the aeroelement record (line 110). As it turns 
out, once the characteristic parametric spacings (in time, 
in this instance) are known, the computation can be 
reduced to a matrix-by-vector multiply operation to 
determine parabolic approximation coefficients (matrix 
determined by lines 87 to 94, coefficients determined by 
lines 96 to 107). Thus the matrix formulation can be 
performed once outside the actual aeroelement-by- 
aeroelement computation loop. 

The power of viscous distortion is calculated in two 
phases for much the same reason as were the aeroelement 
accelerations — in this case derivatives of terms not yet 
calculated are required. Thus the appropriate term must 
be calculated and stored for each aeroelement before the 
phase involving the derivative of the term can begin. This 
process is carried out by subroutines WRKFLD and 
WRKFLE (listings 11 and 12, respectively). These 
subroutines are straighforward calculations of the power - 
of-viscous-distortion equation outlined in the theory 
section of this report. Lines 29 to 33 of listing 1 1 calculate 
and store the power-of-viscous-distortion result (which is 
the aeroelement volume times the divergence of the key 
term calculated in subroutine WRKFLD) by the standard 
derivative calculation scheme outlined previously. 

The conductive heat transfer between aeroelements is 
calculated by subroutine WRKFLF (listing 13). The 
computation is a simple one implementing the conductive 


heat transfer equations discussed in the theoretical 
section of this report. It is important to note that the heat 
transfer is calculated only if the nearest neighbor of the 
target aeroelement reciprocates with the target 
aeroelement (i.e., if the nearest neighbor of the target 
aeroelement lists the target aeroelement as one of its 
nearest neighbors). Since the CASPER algorithm will not 
modify the record of the nearest-neighbor aeroelement 
(for parallel-processing reasons), this reciprocity is 
necessary to ensure the conservation of energy. In this 
way, it is ensured that the same amount of energy 
transferred into the target aeroelement will be removed 
from the neighbor aeroelement (when its turn comes in 
the computational process) to conserve the total energy 
between the two aeroelements. 

The cleanup hitter in the thermodynamic subroutine 
lineup is subroutine WRKFLG (listing 14). This routine 
accumulates all of the power terms for an aeroelement, 
multiplies the result by the time increment to obtain a net 
work, divides the result by the coefficient of specific heat 
at constant volume to determine a change in temperature, 
adjusts the previous aeroelement temperature by the 
calculated change in temperature, and stores the result in 
the aeroelement record. 


Calculation of Aeroelement Volume and Pressure 

Subroutine VOL (listing 15) estimates aeroelement 
volumes on the basis of the proximity of nearest 
neighbors to the target aeroelement. Lines 273 to 283 
initialize for the solid-angle correction calculation and 
calculate the initial spherical volume estimate for the 
target aeroelement. The solid angle calculation is 
performed by forming a regular spherical pentagon and 
dividing it into three successive spherical triangles. For 
this process to work, the nearest neighbors must be 
ordered to produce a regular spherical pentagon. This is 
accomplished in lines 287 to 312 by establishing a 
spherical pole with neighbor 1, establishing a line of zero 
longitude with neighbor 2, and reordering neighbors 3, 4, 
and 5 to achieve monotonically increasing longitudinal 
values. Lines 318 to 363 use the reordered neighbors to 
calculate the solid angle of the three spherical triangles so 
subtended and accumulates the results to obtain the total 
solid angle subtended by all five nearest neighbors. 
Finally the original volume estimate is adjusted (on line 
369) by the relationship of the calculated solid angle to 
the current average solid angle, and the result is stored in 
the target aeroelement record (on line 374). 

Subroutine VSUM (listing 16) implements the volume- 
estimate-correction scheme described in the theoretical 
section of this report. The volume estimate for each 
aeroelement is added to a total volume value. In 
subroutines not included in this report this total volume 
estimate is compared with the known volume for the 
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problem and a multiplicative correction factor is 
produced. This factor is applied to the volume estimate 
for each aeroelement by subroutine VCOR (listing 17). 

Subroutine RHOPRS (listing 18) calculates aero- 
element density and pressure. The aeroelement density 
calculation is a trivial operation performed on lines 27 
and 28 by dividing aeroelement mass by aeroelement 
volume and storing the result in the aeroelement record. 
The calculation of pressure is a similarly trivial process 
(lines 29 to 31); however, in this instance, it is performed 
by invoking the subroutine GASLAW (which is presented 
as listing 19). This allows the user to easily alter the 
operating gas law by the simple expedient of replacing the 
GASLAW subroutine. Thus any gas law relating pressure 
to density and temperature (and indeed any other 
recorded aeroelement property since the aeroelement 
identification number is passed to GASLAW) can be 
easily supported. 

Finding Nearest-Neighbor Aeroelements 

Only one example of a nearest-neighbor aeroelement 
finder is provided in this report: subroutine FNBNE 
(listing 20). This is the neighbor-tree-search algorithm 
described in the theoretical section of this report and is 
the most frequently used method of finding nearest 
neighbors in current CASPER practice. The principal 
advantage of this method is that the user sets the number 
of candidate aeroelements inspected by supplying the 
variable JCC in the subroutine call. 


The subroutine starts out (lines 153 to 228) by 
constructing a candidate tree from the current neighbor 
tree for the target aeroelement. This is done in a two- 
phase process of (1) placing successive layers of the 
neighbor tree onto a candidate possibility stack (lines 190 
to 195) and (2) removing aeroelements from the 
candidate possibility stack and inserting them in the 
candidate aeroelement tree (lines 174 to 181). This 
insertion process ensures that redundant entries will not 
occur. 

The candidate-aeroelement-tree-building process 
continues until either enough independent aeroelement 
candidates have been found (i.e., more than JCC 
candidates have been found) or the neighbor tree fails to 
produce any new aeroelement candidates. In this second 
event the subroutine will attempt to fill out the candidate 
aeroelement tree by acquiring aeroelements from the flow 
zone of the target aeroelement (and thence from neighbor 
flow zones). This process is carried out by lines 207 to 
228. 

Once a candidate aeroelement tree of at least the 
requested size has been constructed, a simple center-to- 
center distance test is used to identify five nearest 
neighbors from among the candidates in the candidate 
aeroelement tree (lines 257 to 264 with neighbor list 
replacement being performed by lines 265 to 270). Note 
that lines 253 to 255 perform a candidate screening 
operation that attempts to eliminate the bogus-nearest- 
neighbor syndrome by requiring that each candidate 
aeroelement tested reside in either the flow zone of the 


16 


target aeroelement or in a flow zone that is a neighbor to 
the flow zone of the target aeroelement. 

Flow Field Simulation Sequence 

This report does not include a listing of the flow field 
simulation sequence since this involves PAX parallel- 
processing knowledge. The interested reader is referred to 
reference 1, which includes a listing of the current 
CASPER flow field simulation sequence. 


Concluding Remarks 

This report has detailed the theoretical basis and 
illustrated the implementation of CASPER. No new 
insight into fluid flow is involved. Rather CASPER uses 
a simple visualization of the fundamental physics of the 
problem and shifts the burden from insight to 
computation and management. The results of CASPER 
operation are a simulation of Navier-Stokes flow rather 
than a solution of the Navier-Stokes equation. 

CASPER allows the following key features in fluid 
flow simulation: 

(1) Three-dimensional flow 

(2) Viscous flow 

(3) Time-varying flow 

(4) Three-dimensional boundaries 

(5) Nonsymmetric boundaries 


(6) Arbitrary, complex boundaries through the 
truncation and concatenation of simple boundaries 

(7) Time-varying boundaries 

(8) Boundary-flow interactions 

As currently implemented, CASPER tasks can be 
executed asynchronously in parallel. A Parallel, 
Asynchronous Executive (PAX) exists to manage this 
feature. Details of PAX are provided in a referenced 
report. 

Computational results (four complete iterative cycles) 
have been obtained from CASPER. These results are 
sufficient to prove the syntactical correctness of 
CASPER modules but do not provide the necessary base 
from which a technical judgment about the appro- 
priateness of the CASPER approach can be made. 


National Aeronautics and Space Administration 

Lewis Research Center 

Cleveland, Ohio, September 21, 1984 
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8F0R,MS CA5PER2. INTFB 
FOR 4R1 E -04/13/84-15J 39! 41 (2,) 
>0EOF 


SUBROUTINE INTF ENTRY POINT 000057 


STORAGE USED! CODE(l) 000074? BATA(O) 000015? BLANK C0MM0N(2) 000000 


EXTERNAL REFERENCES (BLOCK, NAME) 


0003 

CHKLH 

0004 

CHKTIM 

0005 

MATRIX 

0006 

ERR0R2 

0007 

CLNINT 

0010 

NERR3$ 


STORAGE ASSIGNMENT (BLOCK. TYPE, RELATIVE LOCATION, NAME) 


0001 

000020 116G 

0001 000044 23L 

0001 000046 24L 0000 I 000000 FLAG1 0000 

I 000004 

0000 I 

000002 IB 


0000 I 000003 IE 

0000 000006 INJPt 0000 I 000001 IS 



00101 

1* 






000000 

00101 

2* 






000000 

00101 

3* 






000000 

00101 

4* 






000000 

00101 

5* 






000000 

00101 

6* 






000000 

00101 

7* 


SUBROUTINE INTF <IL»IH> 



201A0010 

000000 

00101 

8* 

C 




20100020 

000000 

00101 

9* 

C 




20100030 

000000 

00101 

10* 

C 

INTF ****** A SUBROUTINE FOR 

CASPER ****** 

20100040 

000000 

00101 

11* 

C 

AUTHOR 

WILLIAM HENRY JONES 

20100050 

000000 

00101 

12* 

C 

V01-00 

29 NOV 76 


20100060 

000000 

00101 

13* 

C 

V01-01 

23 AUG 78 


20110061 

000000 

00101 

14* 

C 

V01-01A 

06 FEB 79 


201A0062 

000000 

00101 

15* 

C 

V01-01B 

11 FEB 80 

SINGULAR MATRICIES TO SAFS 


000000 

00101 

16* 

C 




20100080 

000000 

00101 

17* 

C 




20100090 

000000 

00101 

18* 

C 

ARGUMENTS PASSED IN SUBROUTINE CALL 

****** 

20110233 

000000 

00101 

19* 

C 




20110234 

000000 

00101 

20* 

C 

ARGUMENT TYPE 

DIMENSION 

DESCRIPTION 

20110235 

000000 

00101 

21* 

c 




20110236 

000000 

00101 

22* 

c 

IL INTEGER 

SCALAR 

LOW AEROELEMENT ID LIMIT 

201A0240 

000000 

00101 

23* 

c 




201A0242 

000000 

00101 

24* 

c 

IH INTEGER 

SCALAR 

HIGH AEROELEMENT ID LIMIT 

201A0244 

000000 

00101 

25* 

c 




201A0246 

000000 

00101 

26* 

c 




20100260 

000000 

00101 

27* 

c 

description: 



20100270 

000000 

00101 

28* 

c 




20100280 

000000 

00101 

29* 

c 

1 CLEARS FLAG1 



20100290 

000000 

00101 

30* 

c 




20100300 

000000 

00101 

31* 

c 

2 FOR I1=IL,IH, CALLS 

'MATRIX' 


201A0310 

000000 

00101 

32* 

c 




20100320 

000000 

00101 

33* 

c 

3 EXITS 



20100330 

000000 

00101 

34* 

c 




20100340 

000000 

00101 

35* 

c 

REQUIRED SUBROUTINES: 



20100350 

000000 

00101 

36* 

c 




20100360 

000000 

00101 

37* 

c 

211 MATRIX 



20110370 

000000 

00101 

38* 

c 




20100380 

000000 

00101 

39* 

c 




20100390 

000000 

00103 

40* 


INTEGER FLAG1 , IL,IH, IS, 

ID, IE 


201A0400 

000000 

00104 

41* 


DATA ID/201/ 



201A0405 

000000 

00106 

42* 


DATA IE/1/ 



201A0410 

000000 

00110 

43* 


CALL CHKLH (ILrXHrlSvID 

, IE) 

0 CHECK AEROELEMENT ID RANGE 

201A0420 

000000 

00111 

44* 


IF (IS) 16,24,16 


0 VALID RANGE ? 

201A0430 

000006 

00114 

45* 

16 

FLAG1=0 


0 YES, ZERO FLAG 

201A0440 

000010 

00115 

46* 


DO 23 I=IL, IH,IS 


0 DO THE LOOP 

201A0450 

000020 

00120 

47* 


CALL CHKTIM <IL,IH,I) 


0 KEEP AN EYE ON THE TIME 


000020 

00121 

48* 


CALL MATRIX (I,FLAG1) 


0 CALC A MATRIX 


000025 

00122 

49* 


IF (FLAG1) 20,23,20 


0 SINGULARITY FAULT ? 


000031 

00125 

50* 

20 

FLAG1=0 


g YES, RESET THE FLAG 


000033 

00126 

51* 


CALL ERR0R2 (ID, 5) 


0 REPORT IT 


000034 

00127 

52* 


CALL CLNINT (I) 


0 FIX IT 


000040 

00130 

53* 

23 

CONTINUE 


0 


000046 

00132 

54* 

24 

RETURN 


0 


000046 

00133 

55* 


END 



20100480 

000073 

END FOR 








> 


Listing 1.— Subroutine INTF. 


f?FOR»MS CASPER2.MATRID 
FOR 4R1 E -04/13/84-15? 41 J 12 <00 
>6E0F 


SUBROUTINE MATRIX ENTRY POINT 000311 


STORAGE USED? C0DE<1) 0003355 DATA(O) 0001745 BLANK COMMONS) 000000 
COMMON blocks: 

0003 ISIZEC 000001 


EXTERNAL REFERENCES (BLOCK* NAME) 


0004 

X 

0005 

NEI 

0006 

DET4 

0007 

STAT 

0010 

STSTAT 

0011 

STINTP 

0012 

XPII 

0013 

NERR3* 


STORAGE 

ASSIGNMENT 

(BLOCK* TYPE* RELATIVE LOCATION* NAME) 








0001 

000003 HOG 

0001 

000006 

113G 

0001 

000040 

121G 

0001 

000052 

127G 

0001 

000053 

132G 

0001 

000065 140G 

0001 

000075 

143G 

0001 

000076 

146G 

0001 

000113 

154G 

0001 

000152 

163G 

0001 

000167 176G 

0001 

000226 

203L 

0001 

000201 

206G 

0001 

000234 

223G 

0001 

000237 226G 

0001 

000155 404L 

0001 

000200 

406L 

0001 

000207 

601L 

0000 R 000000 

A 

0000 R 

000031 

COF 

0000 R 000132 DET 

0006 R 

000000 

DET4 

OOOO 

R 000062 

D4 

0000 R 

000102 DAI 

0000 I 

000126 

I 

0000 

000152 INJP* 

0003 

000000 

ISIZE 

0000 

I 000127 

J 

0000 I 

000130 

K 

0000 I 

000131 

L 

0005 I 

000000 NEI 

0000 I 

000133 

NNN 

0000 

R 000134 OBET 

0000 R 000135 RRR 

0007 R 

000000 STAT 


0004 R 000000 X 


00101 

1* 







000006 

00101 

2* 







000006 

00101 

3* 







000006 

00101 

4* 







000006 

00101 

5* 







000006 

00101 

6 1 







000006 

00101 

7* 


SUBROUTINE 

MATRIX (11 

fFLAGl) 


21150010 

000006 

00101 

8* 

C 





21100020 

000006 

00101 

9* 

C 





21100030 

000006 

00101 

10* 

C 

MATRIX 

****** A SUBROUTINE FOR CASPER ****** 

21100040 

000006 

00101 

11* 

C 


AUTHOR 

WILLIAM HENRY JONES 

21100050 

000006 

00101 

12* 

C 


V01-00 

29 NOV 76 


21100060 

000006 

00101 

13* 

C 


V01-01 



21110061 

000006 

00101 

14* 

c 


V01-02 



21120062 

000006 

00101 

15* 

c 


V01-03 



21130063 

000006 

00101 

16* 

c 


VO 1-04 



21140064 

000006 

00101 

17* 

c 


V01-05 

23 AUG 78 


21150065 

000006 

00101 

18* 

c 





21100080 

000006 

00101 

19* 

c 

ARGUMENTS 

IN CASPER 7 

CACHE 7 MEMORY ****** 

21150084 

000006 

00101 

20* 

c 





21150086 

000006 

00101 

00101 

21* 

22* 

c 

n 

ARGUMENT 

TYPE 

DIMENSIONS 

DESCRIPTION 

21100090 
nt i saao** 

000006 

AAAAAX 

L 





JVV7 J 

VVVVVO 

00101 

23* 

c 

X 

REAL 

1 TO ISIZE 

X»YfZ» COORDINATES OF 

21100100 

000006 

00101 

24* 

c 



1 TO 3 

THE AEROELEMENTS 

21100110 

000006 

00101 

25* 

c 





21100120 

000006 

00101 

26* 

c 

INTP 

REAL 

1 TO ISIZE 

FIRST 3 ROWS OF INTERP0L21150130 

000006 

00101 

27* 

c 



1 TO 3 

ATOR FROM 2ND ORDER 

21100140 

000006 

00101 

28* 

c 



1 TO 5 

TAYLOR SERIES 

21100150 

000006 

00101 

29* 

c 





21100160 

000006 

00101 

30* 

c 

NEI 

INTEGER 

1 TO ISIZE 

INTEGER LIST OF NEAREST 21100170 

000006 

00101 

31* 

c 



1 TO 5 

NEIGHBORS (NN) 

21100180 

000006 

00101 

32* 

c 





21100190 

000006 

00101 

33* 

c 

STAT 

INTEGER 

1 TO ISIZE 

AEROELEMENT STATUS LIST 21100200 

000006 

00101 

34* 

c 





21100210 

000006 

00101 

35* 

c 





21150213 

000006 

00101 

36* 

c 

ARGUMENTS PASSED IN SUBROUTINE CALL 

mttt 

21150214 

000006 

00101 

37* 

c 





21150215 

000006 

00101 

00101 

38* 

39* 

c 

c 

ARGUMENT 

TYPE 

DIMENSION 

DESCRIPTION 

21150216 

21150217 

000006 

AAAAAA 





UUWVQ 

00101 

40* 

c 

11 

INTEGER 

SCALAR 

POINTER TO CURRENT ELEM. 21100220 

000006 


Listing 2.— Subroutine MATRIX. 
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00101 

41* 

C 



21100230 

000006 

00101 

42* 

C 

FLAG1 INTEGER SCALAR 

SINGULAR MATRIX FLAG1=1 

21100240 

000006 

00101 

43* 

c 



21100250 

000006 

00101 

44* 

c 



21100260 

000006 

00101 

45* 

c 

description: 


21100270 

000006 

00101 

46* 

c 



21100280 

000006 

00101 

47* 

c 

1 MATRIX FORMS THE ARRAY (CALLED A IN THE PROGRAM) 

21100290 

000006 

00101 

48* 

c 



21100300 

000006 

00101 

49* 

c 

♦Xll *X12 *X13 

.5#$X11**2 $X12*$X13 

21100310 

000006 

00101 

50* 

c 

♦X21 *X22 *X23 

♦5**X21**2 $X22**X23 

21100320 

000006 

00101 

51* 

c 

$X31 iX32 *X33 

.5*$X31**2 *X32*$X33 

21100330 

000006 

00101 

52* 

c 

*X41 $X42 *X43 

»5*$X41**2 $X42«X43 

21100340 

000006 

00101 

53* 

c 

*X51 $X52 JX53 

,5**X51**2 *X52«X53 

21100350 

000006 

00101 

54* 

c 



21100360 

000006 

00101 

55* 

c 

WHERE $XKJ = X(NEI(I1»K>*J) - 

X(I1*J) 

21100370 

000006 

00101 

56* 

c 



21100380 

000006 

00101 

57* 

c 

2 MATRIX CALCULATES THE APPROPRIATE COFACTORS AN THE 

21100390 

000006 

00101 

58* 

c 

DETERMINANT OF A 


21100400 

000006 

00101 

59* 

c 



21100410 

000006 

00101 

60* 

c 

3 IF THE DETERMINANT OF A = 0 THEN MATRIX SETS FLAG1=1* SETS 

21140420 

000006 

00101 

61* 

c 

BIT 0 OF STAT AND EXITS 


21100430 

000006 

00101 

62* 

c 



21100440 

000006 

00101 

63* 

c 

4 MATRIX CALCULATES INVERSION OF 

A (FIRST 3 ROWS ONLY)* STORES 

21100450 

000006 

00101 

64* 

c 

IT INTO INT(I1* * >* CLEARS 

BIT 0 OF STAT (THE INTERPOLATOR 

21140460 

000006 

00101 

65* 

c 

NOT AVAILABLE BIT)* AND EXITS 

21140470 

000006 

00101 

66* 

c 



21100480 

000006 

00101 

67* 

c 

REQUIRED SUBROUTINES ****** 


21150490 

000006 

00101 

68* 

c 



21150492 

000006 

00101 

69* 

c 

213 DET3 212 

DET4 

21150494 

000006 

00101 

70* 

c 

401 AVIRI 402 

X 

21150498 

000006 

00101 

71* 

c 

417 STSTAT 416 

STAT 

21150502 

000006 

00101 

72* 

c 

422 

NEI 

21150506 

000006 

00101 

73* 

c 

425 STINTP 


24450508 

000006 

00101 

74* 

c 



21100520 

000006 

00103 

75* 


COMMON /ISIZEC/ISIZE 


21100530 

000006 

00104 

76* 


INTEGER IlrFLAGl 


21150550 

000006 

00105 

77* 


DIMENSION A(5*5)»C0F(5*5)*D4(4i4)*; 

D4I (5*4) 

21120570 

000006 

00106 

78* 


DEFINE DX(I*J)=X(I*J> 


21100580 

000006 

00107 

79* 


DO 201 1=1*5 

^CALCULATE ARRAY A 

21100590 

000006 

00112 

80* 


DO 201 J-l*3 


21100600 

000006 

00115 

81* 

201 

Ad* J)=DX(NEI(I1*I) * J)-X(I1* J) 


21100610 

000006 

00120 

82* 


DO 202 1=1*5 


21100620 

000040 

00123 

83* 


A(I *4)=0«5*A( I * 1 )*A( I * 1 ) 


21100630 

000040 

00124 

84* 

202 

A(I*5)=A(I*2)*A(I*3) 


21100640 

000043 

00126 

85* 


DO 401 1=1*5 

0SETUP INTERMEDIATE STORE 

21120650 

000053 

00131 

36* 


DO 401 J- ; l*4 

0 FOR FIRST PASS 

21120660 

000053 

00134 

87* 

401 

D4I (I?J)-A(If J+l) 


21120670 

000053 

00137 

88* 


DO 408 J=1 * 3 

0BEGIN COLUMN LOOP 

21120680 

000065 

00142 

89* 


DO 402 K=1 * 4 

9SETUP 4X4 MATRIX FOR FIRST 

21120690 

000076 

00145 

90* 


DO 402 L=1 *4 

0 PASS 

21120700 

000076 

00150 

91* 

402 

D4(K*L)=D4I(K+1*L) 


21120710 

000076 

00153 

92* 


DO 404 1-1*5 


21120720 

000113 

00156 

93* 


COF ( I * J)=DET4(D4)*( (-1 )*#(IFJ) ) 

0CALCULATE COFACTORS 

21120730 

000121 

00157 

94* 


IF (1-5) *404* 

0IF 1=5 SKP SETUP FOR NEXTPASS21 120740 

000141 

00162 

95* 


DO 403 L=l*4 

0SETUP 4X4 FOR NEXT PASS 

21120750 

000152 

00165 

96* 

403 

D4(I*L)=D4I(IfL) 


21120760 

000152 

00167 

97* 

404 

CONTINUE 


21120770 

000157 

00171 

98* 


IF (J-l) 406* *406 

GIF FIRST COLUMN COMPLETED 

21120780 

000157 

00174 

99* 


DET=0.0 

8 CALCULATE DETERMINANT 1 1 

21120790 

000162 

00175 

100* 


DO 405 K=l*5 


21120800 

000167 

00200 

101* 

405 

DET=DET+A(K» J)*COF(K* J) 


21120810 

000167 

00202 

102* 


IF (ABS(DET)-l.OE-lO) 601*406*406 


21130820 

000173 

00205 

103* 

406 

DO 407 K=l*5 

0SWAP INTERMEDIATE COLUMN 

21120830 

000201 

00210 

104* 

407 

D4I (K* J)=A(K* J) 


21120840 

000201 

00212 

105* 

408 

CONTINUE 

0EOL COLUMN LOOF 

21120850 

000205 

00214 

106* 


GO TO 203 


21120860 

000205 

00215 

107* 

601 

FLAG1=1 

GERROR - SET FLAG1 

21120870 

000207 

00216 

108* 


NNN=OR(STAT (ID *2**0) 

0 SET STATUS BIT 0 

21150880 

000210 

00217 

109* 


CALL STSTAT (I1*NNN) 

0 

21150850 

000216 

00220 

110* 


RETURN 


21120890 

000222 

00221 

111* 

203 

ODET=i .O/DET 


21121980 

000226 

00221 

112* 

C 

FORM INVERSE OF MATRIX BY DIVIDING 

TRANSFORM OF COFACTOR 

21101990 

000226 

00221 

113* 

c 

MATRIX BY DETERMINANT 


21102000 

000226 

00222 

114* 


DO 204 I -1 *5 


21102010 

000237 

00225 

115* 


DO 204 J=1 *3 


21102020 

000237 

00230 

116* 


RRR=ODET*COF ( I , J ) 

0 

21152030 

000237 

00231 

117* 

204 

CALL STINTP (I1*J,I,RRR) 

0 

21152035 

000242 

00234 

118* 


NNN= AND ( STAT ( 1 1 ) * COMPL ( 2**0 ) ) 

0 CLR STATUS BIT 0 

21152040 

000257 

00235 

119* 


CALL STSTAT (I1*NNN) 

& 

21152045 

000265 

00236 

120* 


RETURN 


21102050 

000271 

00237 

121* 


END 


21102060 

000334 

END FOR 
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eFDR,KS CASPER2»DET4D 
FOR 4R1 E -04/13/84-15:43:57 (0,) 
>8E0F 


FUNCTION DET4 ENTRY POINT 000123 


STORAGE USED: CODE(l) 0001355 DATA(O) 0000435 BLANK COMMONS) 000000 


EXTERNAL REFERENCES (BLOCK, NAME) 

0003 DET3 

0004 XPII 

0005 NERR3* 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 000012 105G 
0003 R 000000 DET3 
0000 000021 INJP$ 


0001 000013 110G 
0000 R 000000 DET4 
0000 I 000013 J 


0001 000031 117G 

0000 R 000014 DE4 


0001 000075 126G 

0000 R 000001 D3 


0001 000100 203L 

0000 I 000012 I 


00101 

1* 




000013 

00101 

2* 




000013 

00101 

3* 




000013 

00101 

4* 




000013 

00101 

5* 




000013 

00101 

6* 




000013 

00101 

7 % 


REAL FUNCTION DET4 (D4) 

21200010 

000013 

00101 

8* 

C 


21200020 

000013 

00101 

9* 

C 


21200030 

000013 

00101 

10* 

C 

****** A REAL FUNCTION FOR CASPER ****** 

21200040 

000013 

00101 

11* 

c 

AUTHOR WILLIAM HENRY JONES 

21200050 

000013 

00101 

12* 

c 

DATE 13 DEC 76 

21200060 

000013 

00101 

13* 

c 

REVISION ORIGINAL 

21200070 

000013 

00101 

14* 

c 


21200080 

000013 

00101 

15* 

c 

ARGUMENT TYPE DIMENSION DESCRIPTION 

21200090 

000013 

00101 

16* 

c 


21200100 

000013 

00101 

17* 

c 

D4 REAL 1 TO 4 ARBITRARY 4X4 ARRAY 

21200110 

000013 

00101 

18* 

c 

1 TO 4 

21200120 

000013 

00101 

19* 

c 


21200130 

000013 

00101 

20* 

c 

description: 

21200140 

000013 

00101 

21* 

c 


21200150 

000013 

00101 

22* 

c 

CALCULATES THE DETERMINANT OF THE INPUT MATRIX BY WEIGHTED 

21200160 

000013 

00101 

23* 

c 

ACCUMULATION OF FUNCTION CALLS TO DET3 (3X3 DETERMINANT) 

21200170 

000013 

00101 

24* 

c 


21200180 

000013 

00101 

25* 

c 

REQUIRED SUBROUTINES: 

21200190 

000013 

00101 

26* 

c 


21200200 

000013 

00101 

27* 

c 

REAL FUNCTION DET3 (D) 

21200210 

000013 

00101 

28* 

c 


21200220 

000013 

00101 

29* 

c 


21200230 

000013 

00101 

30* 

c 


21200240 

000013 

00103 

31* 


REAL D4(4,4) ,D3(3,3) 

21200250 

000013 

00104 

32* 


DO 201 1-1,3 

21200260 

000013 

00107 

33* 


DO 201 J-1,3 

21200270 

000013 

00112 

34* 

201 

D3(l, J)=D4(I+1,J+1) 8SETUP FIRST SUBMATRIX 

21200280 

000013 

00115 

35* 


DE4*0.0 8CLR ACCUMULATOR 

21200290 

000024 

00116 

36* 


DO 203 J*l,4 CENTER ACCUMULATOR LOOP 

21200300 

000031 

00121 

37* 


BE4=DE4+DET3 (D3)*D4(1, J>*( (-1)**( J+l) > 

21200310 

000042 

00122 

38* 


IF (J-4) ,203, 0TST FOR SKP NEXT SUBMATRIX 

21200320 

000064 

00125 

39* 


DO 202 1*1,3 ^SUBSTITUTE CHANGING COLUMN 

21200330 

000075 

00130 

40* 

202 

D3(I,J)=B4(I+1,J) 8 FOR NEXT ACCUMULATOR PASS 

21200340 

000075 

00132 

41* 

203 

CONTINUE 

21200350 

000102 

00134 

42* 


DET4=DE4 

21200360 

000102 

00135 

43* 


RETURN 

21200370 

000104 

00136 

44* 


END 

21200380 

000134 


END FOR 


Listing 3. — Subroutine DET4. 
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>8FQR»M5 CASPER2*DET3D 

FOR 4R1 E -04/13/84-15 *45 Jll (0 ,) 

>0EDF 

FUNCTION DET3 ENTRY POINT 000036 

STORAGE USEDJ CODE(l) 000041 i DATA(O) 000006 i BLANK C0MM0N<2) 000000 

EXTERNAL REFERENCES (BLOCK, NAHE) 

0003 NERR3* 

STORAGE ASSIGNMENT (BLOCK, TYPE? RELATIVE LOCATION, NAME) 

0000 R 000000 DET3 0000 000001 INJP$ 


00101 

1* 





000000 

00101 

2* 





000000 

00101 

3* 





000000 

00101 

4* 





000000 

00101 

5* 





000000 

00101 

6* 





000000 

00101 

7* 





000000 

00101 

8# 





000000 

00101 

9* 





000000 

00101 

10* 


REAL FUNCTION DET3 (D) 


21300010 

000000 

00101 

11* 

C 



21300020 

000000 

00101 

12* 

C 



21300030 

000000 

00101 

13* 

C* 

DET3 ****** A REAL FUNCTION FOR CASPER ****** 

21300040 

000000 

00101 

14* 

C 

AUTHOR 

WILLIAM HENRY JONES 

21300050 

000000 

00101 

15* 

C 

DATE 

13 DEC 76 

21300060 

000000 

00101 

16* 

C 

REVISION 

ORIGINAL 

21300070 

000000 

00101 

17* 

C 



21300080 

000000 

00101 

18* 

C 

ARGUMENT TYPE 

DIMENSIONS DESCRIPTION 

21300090 

000000 

00101 

19* 

C 



21300100 

000000 

00101 

20* 

C 

B REAL 

1 TO 3 ARBITRARY 3 

X 3 ARRAY 21300110 

000000 

00101 

21* 

C 


1 TO 3 

21300120 

000000 

00101 

22* 

c 



21300130 

000000 

00101 

23* 

c 

description: 


21300140 

000000 

00101 

24* 

c 



21300150 

000000 

00101 

25* 

c 

FORMS THE DETERMINANT 

OF AN ARBITRARY 3X3 ARRAY 

21300160 

000000 

00101 

26* 

c 



21300170 

000000 

00101 

27* 

c 

REQUIRED SUBROUTINES: 


21300180 

000000 

00101 

28* 

c 



2130019 0 

000000 

00101 

29* 

c 

NONE 


21300200 

000000 

00101 

30* 

c 



21300210 

000000 

00101 

31* 

c 



21300220 

000000 

00101 

32* 

c 



21300230 

000000 

00103 

33* 


REAL D(3,3) 


2130024 0 

000000 

00104 

34* 


DET3=D(l,l)*(D(2f2)*D(3f3)-D(2f3)*D(3>2))-»(2fl)*(D(li 

-2)*D(3f 3)-B(21300250 

000000 

00104 

35* 


ll>3)»D(3»2))+D(3.1)*(Da t 2)*D(2»3>-n(lf3)»D(2»2)> 

21300260 

000000 

00105 

36* 


RETURN 


213002 70 

000025 

00106 

37* 


END 


21300280 

000040 


END FOR 


Listing 4.— Subroutine DET3. 



0FOR,MS CASPER3*ST0K1D 
FOR 4R1 E -04/ 13/84-15 i 04 144 (4,) 
>eEOF 


SUBROUTINE ST0K1 ENTRY POINT 000271 


STORAGE USED! CODE(l) 000316? DATA(O) 000131? BLANK C0MH0N<2> 000000 


EXTERNAL REFERENCES (BLOCK, NAME) 


0003 

STAT 

0004 

MU 

0005 

MUTHET 

0006 

INTP 

0007 

U 

0010 

EIJ 

0011 

CHKLH 

0012 

NEI 

0013 

STEIJ 

0014 

STMUTH 

0015 

CHKTIM 

0016 

NERR3* 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 


000017 

132G 

0001 


000032 

140G 

0001 


000042 

144G 

0001 


000057 

153G 

0001 


000072 

161G 

0001 


000074 

164G 

0001 


000120 

172D 

0001 


000122 

175G 

0001 


000124 

201G 

0001 


000202 

205L 

0001 


000147 

210G 

0001 


000241 

212L 

0001 


000152 

213G 

0001 


000214 

232G 

0001 


000250 

701L 

0000 R 

000044 

DELTU 

0000 

R 000063 DUIBXJ 

0010 

R 

000000 

EIJ 

0000 

I 

000075 

I 

0000 

I 

000001 

ID 

0000 

I 

000002 

IE 

0000 


000110 

INJP$ 

0006 

R 

000000 

INTP 

0000 

I 

000000 

IS 

0000 

I 

000074 

11 

0000 

I 

000076 

J 

0000 

I 

000077 

K 

0000 R 000033 

LEIJ 

0000 

R 

000003 

LINTP 

0000 R 000025 

LMUTHE 

0000 

I 

000026 

LNEI 

0000 

R 000022 LU 

0004 R 

000000 

MU 

0005 

R 000000 

MUTHET 

0012 

I 

000000 

NEI 

0000 R 

000100 

RRR 

0003 

I 

000000 

STAT 

0007 

R 

000000 

U 










00101 

1* 







000000 

00101 

2* 







000000 

00101 

3* 







000000 

00101 

4* 







000000 

00101 

5* 







000000 

00101 

6* 







000000 

00101 

7* 







000000 

00101 

8* 


SUBROUTINE 

ST0K1 (IL. 

rlH) 


301A0010 

000000 

00101 

9* 

C 





30100020 

000000 

00101 

10* 

C 





30100030 

000000 

00101 

11* 

C 


****** A 

SUBROUTINE FOR CASPER ****** 

30100040 

000000 

00101 

12* 

C 


AUTHOR 

WILLIAM HENRY JONES 

30100050 

000000 

00101 

13* 

C 


V01-00 

28 DEC 76 


30100060 

000000 

00101 

14* 

C 


V01-01 



30110061 

000000 

00101 

15* 

C 


V01-02 



30120062 

000000 

00101 

16* 

C 


V01-03 

24 AUG 78 


30130063 

000000 

00101 

17* 

C 


V01-03A 

06 FEB 79 

FIRST SPLIT OF 'STOK' 

301A0064 

000000 

00101 

18* 

c 


V01-03B 

11 FEB 80 

TIME CHECK 


000000 

00101 

19* 

C 


V01-03C 

15 SEP 80 

FUNCTION TYPE STATEMENTS 


000000 

00101 

20* 

c 


V01-03D 

15 APR 83 

FUNCTION TYPES, EFFICIENCY 

V01-03B 

000000 

00101 

21* 

c 





30100080 

000000 

00101 

22* 

c 

ARGUMENTS 

IN CASPER - 

CACHE' MEMORY 

****** 

30130084 

000000 

00101 

23* 

c 





30130086 

000000 

00101 

24* 

c 

ARGUMENT 

TYPE 

DIMENSION 

DESCRIPTION 

30100090 

000000 

00101 

25* 

c 





30130100 

000000 

OOlOi 

26* 

c 

U 

REAL 

1 To ISIZE 

AEROELEMENT VELOCITIES 

30100110 

000000 

00101 

27* 

c 



1 TO 3 


30100120 

000000 

00101 

28* 

c 





30100130 

000000 

00101 

29* 

c 

NEI 

INTEGER 

1 TO ISIZE 

NEAREST NEIGHBOR LIST 

30100140 

000000 

00101 

30* 

c 



1 TO 5 


30100150 

000000 

00101 

31* 

c 





30100160 

000000 
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00101 

32* 

C 

INTP REAL 

1 TO ISIZE 

INTERPOLATOR MATRICIES 

30130170 

000000 

00101 

33* 

C 


1 TO 3 


30100180 

000000 

00101 

34* 

C 


1 TO 5 


30100190 

000000 

00101 

35* 

C 




30100200 

000000 

00101 

36* 

C 

STAT INTEGER 

1 TO ISIZE 

STATUS LIST 

30100210 

000000 

00101 

37* 

c 




30100220 

000000 

00101 

38* 

c 

MU REAL 

1 TO ISIZE 

AEROELEMENT VISCOUSITIES30100270 

000000 

00101 

39* 

c 


1 TO 2 

1=FIRST» 2=SEC0ND 

30100280 

000000 

00101 

40* 

c 




30100290 

000000 

0010? 

41* 

c 

EIJ REAL 

1 TO ISIZE 

STRAIN RATE MATRICIES 

30100330 

000000 

00101 

42* 

c 


1 TO 3 

EIJ(Ii J)=. 5* (U( I) rX(J) 30100340 

000000 

00101 

43* 

c 


1 TO 3 

+U(J)fX<I>) 

30100350 

000000 

00101 

44* 

c 




30100360 

000000 

00101 

45* 

c 

MUTHET REAL 

1 TO ISIZE 

SEE DESCRIPTION NOTE 3 

30100370 

000000 

00101 

46* 

c 




301A0380 

000000 

00101 

47* 

c 

ARGUMENTS PASSED IN SUBROUTINE CALL 

****** 

301A0382 

000000 

00101 

48* 

c 




301A0384 

000000 

00101 

49* 

c 

ARGUMENT TYPE 

DIMENSION 

DESCRIPTION 

301A0386 

000000 

00101 

50* 





301 AO 388 

000000 

L 




00101 

51* 

c 

IL INTEGER 

SCALAR 

AEROELEMENT ID LOW LIMIT 

301A0390 

000000 

00101 

52* 

c 




301A0392 

000000 

00101 

53* 

c 

IH INTEGER 

SCALAR 

AEROELEMENT ID HIGH LIMIT 

301A0394 

000000 

00101 

54* 

c 




301A0396 

000000 

00101 

55* 

c 




301A0398 

000000 

00101 

56* 

c 

DESCRIPTION ****** 



301A0400 

000000 

00101 

57* 

c 




301A0402 

000000 

00101 

58* 

c 

THIS SUBROUTINE PERFORMS THE FOLLOWING OPERATIONS FOR EACH 

30100410 

000000 

00101 

59* 

c 

AEROELEMENT IN THE RANGE 'IL' TO 'IH'. 

301A0420 

000000 

00101 

60* 

c 




30100430 

000000 

00101 

61* 

c 

1 A CHECK IS HADE FOR AVAILABILITY OF THE INTERPOLATOR MATRIX. 

30100460 

000000 

00101 

62* 

c 

IF NOT AVAILABLE ALL SUCCEEDING OPERATIONS ARE SKIPPED FOR 

30100470 

000000 

00101 

63* 

c 

THE AEROELEMENT DURING THE PASS 


30100480 

000000 

00101 

64* 

c 




30100490 

000000 

00101 

65* 

c 

2 THE STRAIN RATE MATRIX IS CALCULATED (EIJ(IfJ)) 

30100500 

000000 

00101 

66* 

c 




30100510 

000000 

00101 

67* 

c 

3 THE QUANTITY (MU'- 

. 6666667*MU)* (El J( 1 1 1 )+EI J ( 2 f 2 ) +EI J ( 3 . 3 ) ) IS 

30100520 

000000 

00101 

68* 

c 

CALCULATED 



30100530 

000000 

00101 

69* 

c 




30100540 

000000 

00101 

70* 

c 

REQUIRED SUBROUTINES ****** 


30130650 

000000 

00101 

71* 

c 




30130652 

000000 

00101 

72* 

c 

401 AVIRI 



30130654 

000000 

00101 

73* 

c 


404 

U 

30130656 

000000 

00101 

74* 

c 

407 STA 



30130658 

000000 

00101 

75* 

c 


408 

P 

30130660 

000000 

00101 

76* 

c 

417 STSTAT 

416 

STAT 

30130662 

000000 

00101 

77* 

c 


422 

NEI 

30130664 

000000 

00101 

78* 

c 


424 

INTP 

30130666 

000000 

00101 

79* 

c 

427 STEIJ 

426 

EIJ 

30130668 

000000 

00101 

80* 

c 


428 

MU 

30130670 

000000 

00101 

81* 

c 

431 STMUTH 

430 

MUTHET 

30130672 

000000 

00101 

82* 

c 




30100680 

000000 

00101 

83* 

c 




30100690 

000000 

00101 

84* 

c 




30100700 

000000 

00103 

85* 


INTEGER ILrlHflSrlDr IE 


301A0710 

000000 

00104 

86* 


INTEGER STAT 




000000 

00105 

87* 


REAL MU f MUTHET 




000000 

00106 

88* 


REAL INTP 

8 INTERPOLATOR MATRIX ACCESS FUNCTION 

V01-03D 

000000 

00107 

89* 


REAL LINTP(5»3) 

8 LOCAL COPY OF INTERPOLATOR 

V01-03D 

000000 

00110 

90* 


REAL LU(3) 

8 LOCAL COPY OF ELEMENT VELOCITY 

V01-03D 

000000 

00111 

91* 


REAL LMUTHE 

8 LOCAL COPY OF MUTHET FACTOR 

V01-03D 

000000 

00112 

92* 


INTEGER LNEI(5) 

8 LOCAL COPY OF NEAREST NEIGHBOR IDS 

V01-03D 

000000 

00113 

93* 


REAL LEIJ(3f3) 

8 LOCAL COPY OF STRAIN RATE MATRIX 

V01-03D 

000000 

00114 

94* 


DATA ID/301/ 



301A0712 

000000 

00116 

95* 


DATA IE/1/ 



301A0714 

000000 

00120 

96* 


REAL DELTU(5f 3) >DUIDXJ(3»3) 


30110750 

000000 

00121 

97* 


DEFINE DU(IfJ)=U(IfJ) 



30100780 

000000 

00122 

98* 


DEFINE DMUTHE ( I ) =MUTHET ( I ) 


30100800 

000000 

00123 

99* 


DEFINE DMU(I» J)=MU(I» 

J) 


30100810 

000000 

00124 

100* 


DEFINE DEIJ<I,J,K)=EIJ(IiJiK) 


30100820 

000000 

00125 

101* 


CALL CHKLH (ILflH.ISf 

ID, IE) 

0 GO CHECK AEROELEMENT RANGE 

301A0830 

000000 

00126 

102* 


IF (IS) 101,701f101 


8 LEGAL RANGE ? 

301A0832 

000006 

00131 

103* 

101 

DO 213 Il=IL»IHr IS 


e YES i DO EACH AEROELEMENT 

V01-03D 

000010 
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00134 

104* 


IF <AND(STAT(I1)f1>) 103,103,212 

0 DO WE HAVE AN INTERPOLATOR 

7V01-03D 

000017 

00137 

105* 

103 

DO 107 1=1,3 

0 YESf LOCALIZE 

V01-03D 

000032 

00142 

106* 


LU(I)=U(I1fI) 

8 AEROELEMENT VELOCITY 

V01-03D 

000032 

00143 

107* 


DO 107 J=1 f5 

8 

V01-03D 

000042 

00146 

108* 


LINTP(JfI)=INTP<I1iIfJ) 

0 TRANSPOSE OF INTERPOLATOR 

V01-03D 

000042 

00147 

109* 

107 

CONTINUE 

0 

V01-03D 

000057 

00152 

110* 


DO 110 I=1f5 

0 

V01-03D 

000057 

00155 

111* 


LNEI< I)=NEI(I1 fI) 

0 NEAREST NEIGHBOR LIST 

V01-03D 

000057 

00156 

112* 

110 

CONTINUE 

0 

V01-03D 

000074 

00160 

113* 


DO 201 I=1f5 

©CALCULATE VELOCITY DIFFERENCE30100850 

000074 

00163 

114* 


DO 201 J=1f3 

0 FOR ALL 5 NN IN ALL 3 

30120860 

000074 

00166 

115* 

201 

DELTU(IfJ)=DU<LNEI(I)fJ)-LU(J) 

0 COORDINATE DIRECTIONS 

V01-03D 

000074 

00171 

116* 


DO 202 1=1 f 3 

0CLR DERIVATIVE U(I)fX(J) 

30100880 

000122 

00174 

117* 


DO 202 J=1f3 

0 STORAGE AND THEN 

30100890 

000122 

00177 

118* 


DUIDXJ<IfJ)=0,0 

0 CALCULATE DERIVATIVE 

30100900 

000122 

00200 

119* 


DO 202 K=1f5 

0 BY INTERPOLATOR 

30100910 

000124 

00203 

120* 

202 

DUIDXJ(IfJ)=DUIDXJ(IfJ)+(LINTP(Kf 

J)*DELTU<KfI)> 0 

V01-03D 

000124 

00207 

121* 


DO 205 I=1f3 

0 CALC STRAIN RATE MATRIX 

V01-03D 

000152 

00212 

122* 


DO 205 J=1f3 

0 

V01-03D 

000152 

00215 

123* 


RRR=0.5*<DUIDXJ(IfJ)+DUIDXJ<JfI)> 

0 

30130950 

000152 

00216 

124* 


CALL STEIJ (IIfIfJfRRR) 

0 

30130955 

000156 

00217 

125* 


LEIJ(IfJ)=RRR 

0 SAVE LOCAL COPY 

V01-03D 

OOOU4 

00220 

126* 


IF (I-J) 203 j 205 f 203 

0 OFF-DIAGONAL ELEMENT ? 

V01-03D 

000166 

00223 

127* 

203 

CALL STEIJ(IIfJfIfRRR) 

8 YESf FORCE A SYMETRIC 

V01-03D 

000171 

00224 

128* 


LEIJ(JfI)=RRR 

0 RESULT 

V01-03D 

000177 

00225 

129* 

205 

CONTINUE 

0 

V01-03D 

000210 

00230 

130* 


LMUTHE=0.0 

0 CALC QUANTITY OF NOTE 3 

V01-03D 

000210 

00231 

131* 


DO 209 1=1 ,3 

0 

V01-03D 

000214 

00234 

132* 


LMUTHE=LMUTHE+LEIJ(IfI> 

0 

V01-03D 

000214 

00235 

133* 

209 

CONTINUE 

0 

V01-03D 

000217 

00237 

134* 


LMUTHE=LMUTHE* t MU < 1 1 f 2 ) - ( 0 . 666667*MU (1 1 f 1 ) ) ) 8 

V01-03D 

000217 

00240 

135* 


CALL STMUTH (IIfLMUTHE) 

0 

V01-03D 

000234 

00241 

136* 

212 

CALL CHKTIM (ILfIHfII) 

0 KEEP AN EYE ON THE TIME 

V01-03D 

000241 

00242 

137* 

213 

CONTINUE 

0 

V01-03D 

000250 

00244 

138* 

701 

RETURN 

0 BACK TO CALLER 

301A1370 

000250 

00245 

139* 


END 


30101380 

000315 


END FOR 

> 


Listing 5. — Concluded. 


f?FOR>MS CASPER3*ST0K2D 
FOR 4R1 E -04/13/84-15 : 07 • 47 (4r) 
>@EOF 


SUBROUTINE ST0K2 ENTRY POINT 000424 


STORAGE USED? CODE(l) 000451? DATA(O) 000214? BLANK C0MM0N<2) 000000 


EXTERNAL REFERENCES < BLOCK r NAME) 


0003 

STAT 

0004 

MU 

0005 

MUTHET 

0006 

INTP 

0007 

U 

0010 

P 

0011 

EIJ 

0012 

CHKLH 

0013 

RHO 

0014 

STSTAT 

0015 

NEI 

0016 

STA 

0017 

CHKTIh 

0020 

NERR3* 


STORAGE ASSIGNMENT ( BLOCK t TYPE* RELATIVE LOCATION* NAME) 


0001 

000044 

107L 

0001 


000020 

HOG 

0001 


000062 

162G 

0001 


000075 

170G 

0001 


000100 

173G 

0001 

000116 202G 

0001 


000121 

205G 

0001 


000136 214G 

0001 


000372 

220L 

0001 


000160 

225G 

0001 

000174 

232G 

0001 


000177 

236G 

0001 


000211 

244G 

0001 


000225 

251G 

0001 


000230 

2556 

0001 

000243 2636 

0001 


000246 

266G 

0001 


000251 

2716 

0001 


000310 

300G 

0001 


000311 

303G 

0001 

000313 307G 

0001 


000342 

316G 

0001 


000344 

322G 

0001 


000355 

330G 

0001 


000403 

701L 

0000 R 000153 

DEJDXI 

0000 

R 

000052 

CELT 

0000 

R 

000065 

DELTM 

0000 

R 

000142 

DHEDXI 

0000 

R 

000057 

DPDXJ 

0000 

R 000062 

DTDXJ 

0011 

R 

000000 

EIJ 

0000 

I 

000157 

I 

0000 

I 

000001 

ID 

0000 

I 

000002 

IE 

0000 

000174 

INJPi 

0006 

R 000000 

INTP 

0000 

I 

000000 

IS 

0000 

I 

000156 

11 

0000 

I 

000160 

J 

0000 

I 000161 

K 

0000 

R 

000040 

LEIJ 

0000 

R 

000013 LINTP 

0000 

R 

000032 

LhU 

0000 

R 

000051 

LMUTHE 

0000 

I 000003 LNEI 

0000 

R 

000033 

LNMU 

0000 

R 

000011 

LP 

0000 

R 

000012 

LRHO 

0000 

I 

000010 

LSTAT 

0004 

R 000000 

HU 

0005 

R 

000000 

MUTHET 

0015 

I 

000000 

NEI 

0010 

R 

000000 

P 

0013 

R 

000000 

RHO 

0000 R 000162 

RRR 

0003 

I 

000000 

STAT 

0007 

R 

000000 

U 










OOlOi 

1* 






000000 

00101 

2* 






000000 

00101 

3* 






000000 

00101 

4 * 






000000 

00101 

5* 






000000 

00101 

6« 






000000 

00101 

7* 






000000 

00101 

8* 


SUBROUTINE 

ST0K2 (IL» IH) 


302A0010 

000000 

00101 

9* 

C 




30100020 

000000 

00101 

10* 

C 




30100030 

000000 

00101 

11* 

c 


****** A SUBROUTINE FOR 

CASPER ****** 

30100040 

000000 

00101 

12* 

c 


AUTHOR WILLIAM HENRY JONES 

30100050 

000000 

00101 

13* 

c 


V01-00 28 DEC 76 


30100060 

000000 

00101 

14* 

c 


V01-01 


30110061 

000000 

00101 

15* 

c 


V01-02 


30120062 

000000 

00101 

16* 

c 


V01-03 24 AUG 78 


30130063 

000000 

00101 

17* 

c 


V01-03A 06 FEB 79 

SECOND SPLIT OF 7 ST0K 7 

302A0064 

000000 

00101 

18* 

c 


V01-03B 11 FEB 80 

TIME CHECK 


000000 

00101 

19* 

c 


V01-03C 15 SEP 80 

FUNCTION TYPE STATEMENTS 


000000 

00101 

20* 

c 


V01-03D 15 APR 83 

FUNCTION TYPES, EFFICIENCY 

V01-03D 

000000 

00101 

21* 

c 




30100080 

000000 

00101 

22* 

c 

ARGUMENTS 

IN CASPER 'CACHE 7 MEMORY 

****** 

30130084 

000000 

00101 

23* 

c 




30130086 

000000 

00101 

24* 

c 

ARGUMENT 

TYPE DIMENSION 

DESCRIPTION 

30100090 

000000 

00101 

25* 

c 




30130100 

000000 


Listing 6. — Subroutine STOK2. 


00101 

26* 

C 

NEI 

INTEGER 

1 TO ISIZE 

NEAREST NEIGHBOR LIST 

30100140 

000000 

00101 

27* 

C 



1 TO 5 


30100150 

000000 

00101 

28* 

C 





30100160 

000000 

00101 

29* 

C 

INTP 

REAL 

1 TO ISIZE 

INTERPOLATOR MATRICIE5 

30130170 

000000 

00101 

30* 

C 



1 TO 3 


30100180 

000000 

00101 

31* 

C 



1 TO 5 


30100190 

000000 

00101 

32* 

c 





30100200 

000000 

00101 

33* 

c 

STAT 

INTEGER 

1 TO ISIZE 

STATUS LIST 

30100210 

000000 

00101 

34* 

c 





30100220 

000000 

00101 

35* 

c 

P 

REAL 

1 TO ISIZE 

AEROELEMENT PRESSURES 

30100230 

000000 

00101 

36* 

c 





30100240 

000000 

00101 

37* 

c 

RHO 

REAL 

1 TO ISIZE 

AEROELEMENT DENSITIES 

30100250 

000000 

00101 

38* 

c 





30100260 

000000 

00101 

39* 

c 

HU 

REAL 

1 TO ISIZE 

AEROELEMENT VISCQUSITIES30100270 

000000 

00101 

40* 

c 



1 TO 2 

1=FIRST , 2=SEC0ND 

30100280 

000000 

00101 

41* 

c 





30100290 

000000 

00101 

42* 

c 

A 

REAL 

1 TO ISIZE 

AEROELEMENT ACCELERATI0N30100300 

000000 

00101 

43* 

c 



1 TO 3 


30100310 

000000 

00101 

44* 

c 





30100320 

000000 

00101 

45* 

c 

EIJ 

REAL 

1 TO ISIZE 

STRAIN RATE MATRICIES 

30100330 

000000 

00101 

46* 

c 



1 TO 3 

EIJ<IfJ)=.5*(U(I)>X(J)30100340 

000000 

00101 

47* 

c 



1 TO 3 

+U(J)fX(I>) 

30100350 

000000 

00101 

48* 

c 





30100360 

000000 

00101 

49* 

c 

HUTHET 

REAL 

1 TO ISIZE 

SEE DESCRIPTION NOTE 3 

30100370 

000000 

00101 

50* 

c 





302A0380 

000000 

00101 

51* 

c 

ARGUMENTS 

PASSED IN SUBROUTINE CALL ****** 

302A0382 

000000 

00101 

52* 

c 





302A0384 

000000 

00101 

53* 

c 

ARGUMENT 

TYPE 

DIMENSION 

DESCRIPTION 

302A0386 

000000 

00101 

54* 






302A0388 

000000 

L 





00101 

55* 

c 

IL 

INTEGER 

SCALAR 

AEROELEMENT ID LOW LIMIT 

302A0390 

000000 

00101 

56* 

c 





302A0392 

000000 

00101 

57* 

c 

IH 

INTEGER 

SCALAR 

AEROELEMENT ID HIGH LIMIT 

302A0394 

000000 

00101 

58* 

c 





302A0396 

000000 

00101 

59* 

c 





302A0398 

000000 

00101 

60* 

c 

DESCRIPTION ****** 



302A0400 

000000 

00101 

61* 

c 





302A0402 

000000 

00101 

62* 

c 

THIS SUBROUTINE PERFORMS THE FOLLOWING OPERATIONS FOR EACH 

30100410 

000000 

00101 

63* 

c 

AEROELEMENT IN THE RANGE 'IL' TO 'IH'. 


302A0420 

000000 

00101 

64* 

c 





30100430 

000000 

00101 

65* 

c 

1 THE DENSITY, RHO, 

IS CHECKED FOR APPROXIMATE EQUALITY WITH ZER030100570 

000000 

00101 

66* 

c 

IF SO, 

STATUS BIT 

1 IS SET (ZERO DENSITY ERROR) AND 

30100580 

000000 

00101 

67* 

c 

REMAINING CALCULATIONS ARE SKIPPED. 

THE CALCULATIONS ARE ALSO 

302A0590 

000000 

00101 

68* 

c 

SKIPPED 

IF THE 'INTERPOLATOR MATRIX NOT AVAILABLE' FLAG IS SET.302A0600 

000000 

00101 

69* 

c 





30100610 

000000 

00101 

70* 

c 

2 THE AEROELEMENT ACCELERATIONS, A, ARE CALCULATED. 

30100620 

000000 

00101 

71* 

c 





30100630 

000000 

00101 

72* 

c 





30100640 

000000 

00101 

73* 

c 

REQUIRED SUBROUTINES 

****** 


30130650 

000000 

00101 

74* 

c 





30130652 

000000 

00101 

75* 

c 

401 

AVIRI 



30130654 

000000 

00101 

76* 

c 



404 U 


30130656 

000000 

00101 

77* 

c 

407 

STA 



30130658 

000000 

00101 

78* 

c 



408 P 


30130660 

000000 

00101 

79* 

c 

417 

STSTAT 

416 STAT 

30130662 

000000 

00101 

80* 

c 



422 NEI 


30130664 

000000 

00101 

81* 

c 



424 INTP 

30130666 

000000 

00101 

82* 

c 

427 

STEIJ 

426 EIJ 

30130668 

000000 

00101 

83* 

c 



428 MU 


30130670 

000000 

00101 

84* 

c 

431 

STMUTH 

430 HUTHET 

30130672 

000000 

00101 

85* 

c 





30100680 

000000 

00101 

86* 

c 





30100690 

000000 

00101 

87* 

c 





30100700 

000000 

00103 

88* 


INTEGER IL 

»IH»IS,ID»IE 


302A0710 

000000 

00104 

89* 


INTEGER STAT 




000000 

00105 

90* 


REAL MU, HUTHET 




000000 

00106 

91* 


REAL INTP 


e ACCESS TO INTERPOLATOR MATRIX 

V01-03D 

000000 

00107 

92* 


INTEGER LNEI(5) 

8 LOCAL NEIGHBOR LIST 

V01-03D 

000000 

00110 

93* 


INTEGER LSTAT 

8 LOCAL STATUS 


V01-03D 

000000 

00111 

94* 


REAL LP 


8 LOCAL COPY — 

PRESSURE 

V01-03D 

000000 

00112 

95* 


REAL LRHO 


8 LOCAL COPY — 

DENSITY 

U01-03D 

000000 

00113 

96* 


REAL LINTP<5,3) 

8 LOCAL COPY - 

INTERPOLATOR MATRIX 

V01-03D 

000000 

00114 

97* 


REAL LMU 


0 LOCAL COPY — 

VISCQUSITY 

V01-03D 

000000 
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00115 

98* 


REAL LNHU(5) 0 LOCAL 

COPY — NEIGHBOR VISCQUSITIES 

V01-03D 

000000 

00116 

99* 


REAL LEIJ(3,3) 0 LOCAL 

COPY — STRAIN RATE MATRIX 

V01-03D 

000000 

00117 

100* 


REAL LMUTHE 0 LOCAL 

COPY — MUTHET 

V01-03D 

000000 

00120 

101* 


DATA ID/302/ 


302A0712 

000000 

00122 

102* 


DATA IE/1/ 


302A0714 

000000 

00124 

103* 


REAL DELT(5) ,DPDXJ(3) »BTDXJ(3) »BELTM(5»3,3) ,DMEDXI(3,3) 

30100760 

000000 

00125 

104* 


REAL DEJDXK3) 


30100770 

000000 

00126 

105* 


DEFINE DU(I,J)=U(I, J) 


30100780 

000000 

00127 

106* 


DEFINE DP(I)=P(I) 


30100790 

000000 

00130 

107* 


DEFINE DMUTHE ( I ) =MUTHET ( I ) 


30100800 

000000 

00131 

108* 


DEFINE DMU(I,J)=MU(I,J) 


30100810 

000000 

00132 

109* 


DEFINE DEIJ(I , J,K)=EIJ(I, J,K) 


30100820 

000000 

00133 

110* 


CALL CHKLH (IL,IH,IS,ID, IE) 

0 GO CHECK AEROELEMENT RANGE 

302A0990 

000000 

00134 

111* 


IF (IS) 100,701,100 

0 VALID RANGE ? 

302A1010 

000006 

00137 

112* 

100 

DO 221 I1=IL»IH»IS 

0 YES, DO EACH 

V01-03D 

000010 

00142 

113* 


LSTAT=STAT(I1) 

0 LOCALIZE AEROELEMENT STATUS 

V01-03D 

000020 

00143 

114* 


IF <AND(LSTAT,1) ) 220,103,220 

0 INTERPOLATOR AVAILABLE ? 

V01-03D 

000023 

00146 

115* 

103 

LRH0=RH0(I1) 

0 YES, LOCALIZE DENSITY 

V01-03D 

000026 

00147 

116* 


LST AT=AND ( LST AT , COMPL ( 2 ) ) 

0 RESET DENSITY ERROR FLAG 

V01-03D 

000032 

00150 

117* 


IF (LRH0-1.0E-25) 106,106,107 

0 DENSITY TOO SMALL ? 

V01-03D 

000035 

00153 

118* 

106 

LSTAT=0R(LSTAT,2) 

0 YES, SET FLAG 

V01-03D 

000040 

00154 

119* 

107 

CALL STSTAT <I1,LSTAT) 

0 REVISE STATUS IN ANY EVENT 

V01-03D 

000044 

00155 

120* 


IF <AND(LSTAT»2) ) 220,109,220 

0 DENSITY OK ? 

V01-03D 

000047 

00160 

121* 

109 

LMU=MU(I1 ,1 ) 

0 YES, LOCALIZE^ VISCOUS I TY 

V01-03B 

000052 

00161 

122* 


DO 112 1-1,5 

0 LOCALIZE NEIGHBOR LIST 

V01-03D 

000062 

00164 

123* 


LNEI(I)=NEI(I1,I) 

0 

V01-03D 

000062 

00165 

124* 

112 

CONTINUE 

0 

V01-03D 

000100 

00167 

125* 


DO 116 1=1,3 

0 LOCALIZE TRANSPOSE OF 

V01-03D 

000100 

00172 

126* 


DO 116 J=1 ,3 

0 STRAIN RATE MATRIX 

V01-03B 

000100 

00175 

127* 


LEIJ( J,I)=EIJ(I1,I, J) 

0 

V01-03D 

000100 

00176 

128* 

116 

CONTINUE 

0 

V01-03D 

000121 

00201 

129* 


DO 120 1=1,3 

0 LOCALIZE TRANSPOSE OF 

V01-03D 

000121 

00204 

130* 


DO 120 J=l,5 

0 INTERPOLATOR MATRIX 

V01-03D 

000121 

00207 

131* 


LINTP( J, I)=INTP( 11 ,1, J> 

0 

V01-03D 

000121 

00210 

132* 

120 

CONTINUE 

0 

V01-03B 

000136 

00213 

133* 


DO 124 1=1,5 

0 LOCALIZE NEIGHBOR'S 

V01-03D 

000136 

00216 

134* 


J=LNEI (I ) 

0 VISCOUSITIES 

V01-03D 

000136 

00217 

135* 


LNMU(I)=MU( J, 1 ) 

0 

V01-03D 

000137 

00220 

136* 

124 

CONTINUE 

0 

V01-03D 

000145 

00222 

137* 


LP=P(I1) 

0 LOCALIZE PRESSURE 

V01-03D 

000145 

00223 

138* 


LMUTHE=MUTHET (ID 

0 LOCALIZE MUTHET 

V01-03D 

000151 

00224 

139* 


DO 201 1=1,5 

0 FORM PRESSURE DIFFERENCES 

V01-03D 

000160 

00227 

140* 

201 

DELT(I)=DP(LNEI (I) >-LP 

0 

V01-03D 

000160 

00231 

141* 


DO 207 J=1 ,3 

0CLR DERIVATIVES OF PRESSURE 

30101100 

000174 

00234 

142* 


DPDXJ( J)=0*0 

0 AND CALCULATE NEW BY 

30101110 

000174 

00235 

143* 


DO 207 K=1 ,5 

0 INTERPOLATOR 

30101120 

000177 

00240 

144* 

207 

DPDXJ( J)=DPDXJ( J)+(LINTP(K, J)*DELT (K) ) 0 

V01-03D 

000177 

00243 

145* 


DO 208 1=1,5 

0CALC NOTE 3 DIFFERENCES 

30101140 

000211 

00246 

146* 

208 

DELT ( I ) =DhUTHE ( LNE I ( I ) ) -LMUTHE 

0 

V01-03D 

000211 

00250 

147* 


DO 209 J=1 ,3 

0CLR NOTE 3 DERIVATIVES AND 

30101160 

000225 

00253 

148* 


DTDXJ( J)=0«0 

0 CLACULATE NEW BY 

30101170 

000225 

00254 

149* 


DO 209 K=l,5 

0 INTERPOLATOR 

30101180 

000230 

00257 

150* 

209 

DTDXJ( J)=DTDXJ( J)+(LINTP(K, J)*DELT (K) ) 0 

V01-03D 

000230 

00262 

151* 


DO 210 K=1 ,5 

0CALC DIFFERENCE MATRIX FOR 

30101200 

000251 

00265 

152* 


DO 210 1=1,3 

0 2*MU*EIJ(I,J),X(I) 

30101210 

000251 

00270 

153* 


DO 210 J=1 ,3 


30101220 

000251 

00273 

154* 

210 

DELTM(K, I , J)=( (LNMU(K)*DEIJ(LNEI(K) , I, J) )-(LMU*LEIJ( J,I) ) )*2*0 0 

V01-03D 

000251 

00277 

155* 


DO 211 1=1,3 

0CLR DERIVATIVES AND CALC NEW 30101250 

000311 

00302 

156* 


DO 211 J=1 ,3 

0 FOR 2*MU*EIJ(I,J),X(I) 

30101260 

000311 

00305 

157* 


DMEDXKI, J)=0»0 


30101270 

000311 

00306 

158* 


DO 211 K=l,5 


30101280 

000313 

00311 

159* 

211 

DMEDXKI, J)=DMEDXKI,J)+<LINTP(K,I)*DELTM(K, I, J)) 0 

V01-03D 

000313 

00315 

160* 


DO 212 >1,3 

0PERFORM IMPLIED TENSOR SUM 

30101300 

000342 

00320 

161* 


DEJDXK J)=0*0 

0 PER NAVIER-STOKES EQUATION 

30101310 

000342 

00321 

162* 


DO 212 1=1,3 


30101320 

000344 

00324 

163* 

212 

DEJDXI ( J ) =DE JDXI ( J ) +DMEDXI (I , J ) 


30101330 

000344 

00327 

164* 


DO 213 >1,3 

8 CALC NAVIER-STOKES EQUATION 30131340 

000355 

00332 

165* 


RRR= ( DTDX J ( J ) +DE JDX I ( J > -DPDXJ ( J ) ) /LRHO 0 

V01-03D 

000355 

00333 

166* 

213 

CALL STA ( 11 , J,RRR) 

0 

30131355 

000362 

00335 

167* 

220 

CALL CHKTIM (IL,IH,I1) 

0 KEEP AN EYE ON THE TIME 

V01-03D 

000372 

00336 

168* 

221 

CONTINUE 

0 

V01-03D 

000403 

00340 

169* 

701 

RETURN 


301A1370 

000403 

00341 

170* 


END 


30101380 

000450 


END FOR 

> 
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8F0R*MS CASPERS'. MOVELD 
FOR 4R1 E -04/13/84-15*11 *33 (12*) 
>GEOF 


SUBROUTINE MOVEL ENTRY POINT 001010 


STORAGE USED: CODE(l) 001544* DATA(O) 002706J BLANK C0MH0N<2) 000000 

common blocks: 

0003 NZNC 000001 

0004 IDUC 000001 


EXTERNAL REFERENCES (BLOCK* NAME) 


0005 

FZ 

0006 

STAT 

0007 

ZBL 

0010 

IPZBL 

0011 

IPLZN 

0012 

LZN 

0013 

CHKLH 

0014 

CHKTIM 

0015 

STIAES 

0016 

X 

0017 

U 

0020 

A 

0021 

STS 

0022 

TOGSU 

0023 

GRDBD 

0024 

SURFVE 

0025 

SURF AC 

0026 

STSTAT 

0027 

ERR0R2 

0030 

TSTZN 

0031 

TSTBDT 

0032 

NUDUt 

0033 

NI02* 

0034 

SORT 

0035 

NERR34 

0036 

NI01$ 


STORAGE ASSIGNMENT (BLOCK* TYPE* RELATIVE LOCATION* NAME) 


0001 


001333 

1002L 

0001 


000412 

106L 

0000 


000267 

1078F 

0001 


000007 

200G 

0001 


000153 

250G 

0001 


000274 

322G 

0001 


000351 

355G 

0001 


000521 

3600L 

0001 


000615 

3790L 

0001 


000651 

3840L 

0001 


000400 

400G 

0001 


000717 

4100L 

0001 


000216 

4303L 

0001 


000524 

454G 

0001 


000735 

6000L 

0020 R 

000000 

A 

0005 

I 

000000 

FZ 

0000 

I 

000070 

IDB 

0000 

I 

000064 

IFZ 

0011 

I 

000000 

IPLZN 

0000 

I 

000000 

IS 

0000 

I 

000072 

K 

0000 

I 

000107 

NB 

0000 

R 

000112 

SV 


0001 


000163 

101L 

0001 


000262 

107L 

0000 


000275 

1079F 

0001 


000046 

21 7G 

0001 


000011 

2755L 

0001 


000311 

3306 

0001 


000472 

3570L 

0001 


000360 

363G 

0001 


000617 

3800L 

0001 


000665 

3852L 

0001 


000347 

4002L 

0001 


000724 

4101L 

0000 


000114 

4304F 

0001 


000534 

463G 

0001 


001041 

610G 

0000 

R 

000003 

AL 

0000 

R 

000026 

GB 

0000 

I 

000102 

IDMIN 

0000 


002610 

INJP* 

0010 

I 

000000 

IPZBL 

0000 

I 

000113 

IT 

0012 

I 

000000 

LZN 

0000 

I 

000110 

NC 

0000 

R 

000071 

SVMIN 


0001 001467 1025L 

0000 000243 1075F 

0000 000304 1080F 

0001 000714 219L 

0001 000040 2796L 

0001 000324 337G 

0001 000503 3572L 

0001 000566 3710L 

0001 000633 3812L 

0000 000202 3853F 

0001 000376 4010L 

0000 000225 4102F 

0001 000227 4307L 

0001 000575 507G 

0001 001227 663G 

0000 R 000314 ARB 
0000 I 000054 I 
0004 I 000000 IDU 
0000 002627 INJP$ 

0000 I 000314 IRB 
0000 I 000062 IZVCF 
0000 I 000103 N 
0000 I 000075 NNN 
0000 R 000065 T 


0001 


001476 

1028L 

0000 


000251 

1076F 

0001 


001110 

15L 

0001 


000767 

221L 

0001 


001203 

29L 

0001 


0003^3 

344G 

0000 


000134 

3573F 

0001 


000371 

373G 

0000 


000156 

3813F 

0001 


000676 

3856L 

0001 


000404 

4012L 

0001 


000433 

416G 

0001 


000234 

4325L 

0001 


000610 

520G 

0001 


001372 

735G 

0000 

R 

000073 

B 

0000 

I 

000063 

I BUMP 

0000 

I 

000104 

IDUM 

0000 


002623 

INJP$ 

0000 

I 

000002 

IRBPP 

0000 

I 

000061 

11 

0000 

I 

000105 

N 

0003 

I 

000000 

NZN 

0000 R 000077 

TA 


0001 


001501 

1050L 

0000 


000261 

1077F 

0001 


000007 

175G 

0001 


000071 

227G 

0001 


000264 

313G 

0001 


000442 

3500L 

0001 


000514 

3580L 

0001 


000604 

3760L 

0001 


000644 

3816L 

0001 


000703 

3880L 

0001 


001262 

41L 

0001 


001264 

42L 

0001 


001272 

45L 

0001 


000737 

572G 

0001 


001463 

760G 

0000 

R 

000074 

C 

0000 

I 

000111 

ID 

0000 

I 

000101 

IE3F 

0000 


002615 

INJP4 

0000 

I 

000001 

IRBPT 

0000 

I 

000055 

J 

0000 

I 

000106 

NA 

0006 

I 

000000 

STAT 

0000 R 000060 

LkJ 

*— 
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0000 R 000056 TINC 0000 R 000057 TINCSQ 0000 R 000067 TLEFT 0000 R 000076 TN 0000 R 000100 TQ 
0000 R 000066 TS 0017 R 000000 U 0000 R 000045 UA 0000 R 000031 UL 0000 R 000041 UN 
0000 R 000035 UQ 0000 R 000051 VBO 0016 R 000000 X 0000 R 000022 XA 0000 R 000006 XL 
0000 R 000016 XN 0000 R 000012 XQ 0007 I 000000 ZBL 


00101 

1* 


SUBROUTINE 

HOVEL (IL 

f IHfCURTIMfGDASTrNINC) 

901A0010 

000000 

00101 

2* 

C 





90100030 

000000 

00101 

3* 

C 





90100040 

000000 

00101 

4* 

C 

HOVEL 

****** A 

SUBROUTINE FOR 

CASPER ****** 

90100050 

000000 

00101 

5* 

C 


AUTHOR 

WILLIAM HENRY JONES 

90100060 

000000 

00101 

61 

c 


V02-00 

14 APR 77 


90100070 

000000 

00101 

7* 

c 


V02-01 

22 JUN 77 


90110071 

000000 

00101 

8* 

c 


V02-02 

26 JUL 77 


90120072 

000000 

00101 

9* 

c 


V02-03 

22 SEP 77 


90130073 

000000 

00101 

10* 

c 


V02-04 

22 SEP 77 


90140074 

000000 

00101 

11* 

c 


V02-05 

26 SEP 77 


90150075 

000000 

00101 

12* 

c 


V02-06 

01 JUN 78 


90160076 

000000 

00101 

13* 

c 


V02-07 

16 JUN 78 


90170077 

000000 

00101 

14* 

c 


V02-08 

29 AUG 78 


90180078 

000000 

00101 

15* 

c 


V02-08A 

13 FEB 79 


901A0079 

000000 

00101 

16* 

c 


V02-08B 

09 MAR 79 


901B0080 

000000 

00101 

17* 

c 


V02-08C 

13 FEB 80 

INPUT/OUTPUT SEGREGATION 


000000 

00101 

18* 

c 


V02-08D 

15 SEP 80 

FUNCTION TYPE STATEMENTS 


000000 

00101 

19* 

c 


V02-08E 

28 SEP 81 

MOVING BOUNDARIES 

V02-08E 

000000 

00101 

20* 

c 


V02-08F 

06 JAN 83 

BAD POSITION INTEGRATION 

V02-08F 

000000 

00101 

21* 

c 


V02-08G 

16 MAY 83 

TYPE OF ZBL WRONG 

V02-08G 

000000 

00101 

22* 

c 


V02-08H 

27 JUN 83 

DEBUG MESSAGES AND HISTORY 

V02-08H 

000000 

00101 

23* 

c 


V02-08I 

27 JUL 83 

TYPOS 

V02-08I 

000000 

00101 

24* 

c 


V02-08J 

05 AUG 83 

ZERO VELOCITY COLLISIONS 

V02-08J 

000000 

00101 

25* 

c 


V02-08K 

24 OCT 83 

FLOW ZONE NOT FOUND TRAPS 

V02-08K 

000000 

00101 

26* 

c 


V02-08L 

25 JAN 84 

AVOID ENDLESS BUMPS 

V02-08L 

000000 

00101 

27* 

c 





90100090 

000000 

00101 

28* 

c 

AR6UHENTS 

IN CASPER 

' CACHE ' MEMORY 

****** 

90180094 

000000 

00101 

29* 

c 





90180096 

000000 

00101 

30* 

c 

ARGUMENT 

TYPE 

DIMENSION 

DESCRIPTION 

90100100 

000000 

00101 

31* 

c 



— 


90180110 

000000 

00101 

32* 

c 

X 

REAL 

1 TO ISIZE 

AEROELEMENT POSITION 

90100120 

000000 

00101 

33* 

c 



1 TO 3 

COORDINATES 

90100130 

000000 

00101 

34* 

c 





90100140 

000000 

00101 

35* 

c 

U 

REAL 

1 TO ISIZE 

AEROELEMENT VELOCITIES 

90100150 

000000 

00101 

36* 

c 



1 TO 3 


90100160 

000000 

00101 

37* 

c 





90100170 

000000 

00101 

38* 

c 

A 

REAL 

1 TO ISIZE 

AEROELEMENT ACCELERATIONS 

90100180 

000000 

00101 

39* 

c 



1 TO 3 


90100190 

000000 

00101 

40* 

c 





90100200 

000000 

00101 

41* 

c 

FZ 

INTEGER 

1 TO ISIZE 

AEROELEMENT FLOW ZONE 

90100210 

000000 

00101 

42* 

c 




NUMBERS (BY AEROELEMENT) 

90100220 

000000 

00101 

43* 

c 





90100230 

000000 

00101 

44* 

c 

STAT 

INTEGER 

1 TO ISIZE 

AEROELEMENT STATUS LIST 

90100240 

000000 

00101 

45* 

c 





90100360 

000000 

00101 

46* 

c 

ZBL 

INTEGER 

1 TO ZBLSZ 

BOUNDARY LIST BY FLOW ZQNES90100370 

000000 

00101 

47* 

c 





90100380 

000000 

00101 

48* 

c 

IPZBL 

INTEGER 

1 TO NZN 

ZBL CONTROL PARAMETERS LIST90100390 

000000 

00101 

49* 

c 



1 TO 2 

(Xfl) = STARTING POINT 

90100400 

000000 

00101 

50* 

c 




(Xi 2) = STRING LENGTH 

90100410 

000000 

00101 

51* 

c 





90100420 

000000 

00101 

52* 

c 





90100560 

000000 

00101 

53* 

c 

ARGUMENTS 

PASSED IN 

SUBROUTINE CALL 

****** 

90180562 

000000 

00101 

54* 

c 





90180564 

000000 

00101 

55* 

c 

ARGUMENT 

TYPE 

DIMENSION 

DESCRIPTION 

90180566 

000000 

00101 

56* 

c 



— 


90180568 

000000 

00101 

57* 

c 

IL 

INTEGER 

SCALAR 

AEROELEMENT ID LOW LIMIT 

901A0569 

000000 

00101 

58* 

c 





901A0570 

000000 

00101 

59* 

c 

IH 

INTEGER 

SCALAR 

AEROELEMENT ID HIGH LIMIT 

901A0571 

000000 

00101 

60* 

c 





901A0572 

000000 

00101 

61* 

c 

CURTIM 

REAL 

SCALAR 

CURRENT OPENING TIME 

901A0573 

000000 

00101 

62* 

c 





901A0574 

000000 

00101 

63* 

c 

GDAST 

REAL 

SCALAR 

BASIC TIME INCREMENT 

901A0575 

000000 

00101 

64* 

c 





90180576 

000000 


Listing 7.— Continued. 


30 


I 


00101 

65* 

C 

NINC INTEGER SCALAR NUMBER OF TIME SUB- 

90180578 

000000 

00101 

66* 

C 

INCREMENTS 

90180580 

000000 

00101 

67* 

c 


90180582 

000000 

00101 

68* 

c 


90180584 

000000 

00101 

69* 

c 

RESULT LOCATIONS ****** 


000000 

00101 

70* 

c 



000000 

00101 

71* 

c 

LOCATION CONTENTS 


000000 

00101 

72* 

c 



000000 

00101 

73* 

c 

AESCRA FINAL FLOW ZONE ID OF AEROELEMENT 


oooooo 

00101 

74* 

c 



000000 

00101 

75* 

c 

S(l) X(l) 


oooooo 

00101 

76* 

c 

S(2) X(2) 


oooooo 

00101 

77* 

c 

S(3> X<3) 


oooooo 

00101 

78* 

c 

S(4) UU> 


oooooo 

00101 

79* 

c 

S(5) U<2) 


oooooo 

00101 

80* 

c 

S(6) U(3) 


oooooo 

00101 

81* 

c 



oooooo 

00101 

82* 

c 



oooooo 

00101 

83* 

c 

DESCRIPTION ****** 

90180586 

oooooo 

00101 

84* 

c 


90180588 

oooooo 

00101 

85* 

c 

MOVEL IS A SUBROUTINE WHICH* GIVEN THE POSITION* VELOCITY* AND 

90100590 

oooooo 

00101 

86* 

c 

ACCELERATION OF INDIVIDUAL AEROELEMENTS AS WELL AS A DEFINITION 

90100600 

oooooo 

00101 

87* 

c 

OF THE BOUNDARIES AND FLOW ZONES OF THE AIRFLOW VOLUME * WILL 

90100610 

oooooo 

00101 

88* 

c 

REPOSITION THOSE AEROELEMENTS THAT ARE NOT RESTRICTED TO OTHER 

90100620 

oooooo 

00101 

89* 

c 

PRESET LAWS OF MOTION (E.G. - BOUNDARY ELEMENTS FIXED IN SPACE) 

90100630 

oooooo 

00101 

90* 

c 

ACCORDING TO THE CLASSIC INTEGRATION OF CONSTANTLY ACCELERATING 

90100640 

oooooo 

00101 

91* 

c 

MOTION. 

90100650 

oooooo 

00101 

92* 

c 


90100660 

oooooo 

00101 

93* 

c 

DURING SUCH RELOCATION EACH APPROPRIATE BOUNDARY IS CHECKED FOR 

90100670 

oooooo 

00101 

94* 

c 

POTENTIAL VIOLATIONS BY THE AEROELEMENT. IF SUCH A VIOLATION IS 

90100680 

oooooo 

00101 

95* 

c 

DETECTED THE POINT OF VIOLATION IS FOUND AND THE AEROELEMENT IS 

90100690 

oooooo 

00101 

96* 

c 

ELASTICALLY BOUNCED OFF THE BOUNDARY AT THAT LOCATION. TO ENHANCE90100700 

oooooo 

00101 

97* 

c 

BOUNDARY VIOLATION DETECTION A SUB- INCREMENTAL TIME STEP IS 

90100710 

oooooo 

00101 

98* 

c 

SPECIFYABLE BY THE INTEGER ARGUMENT NINC. THIS WILL DIVIDE THE 

90100720 

oooooo 

00101 

99* 

c 

PARABOLIC MOTION FROM X 0 T TO X 8 T+GDAST INTO NINC EQUAL STEPS 

90100730 

oooooo 

00101 

100* 

c 

AND CHECK FOR BOUNDARY VIOLATIONS AT EACH OF THE INTERMEDIATE 

90100740 

oooooo 

00101 

101* 

c 

POSITIONS* THUS LOWERING THE PROBABILITY OF AEROELEMENTS ■PASSING 

90100750 

oooooo 

00101 

102* 

c 

THROUGH* THIN BOUNDARIES SUCH AS LEADING AND TRAILING EDGES OF 

90100760 

oooooo 

00101 

103* 

c 

AIRFOILS. 

90100770 

oooooo 

00101 

104* 

c 


V02-08E 

oooooo 

00101 

105* 

c 

THE BOUNDARY BOUNCING PROCESS IS A SIMPLE REFLECTION ALGORITHM. 

V02-08E 

oooooo 

00101 

106* 

c 

I.E.i ANGLE OF INCIDENCE EQUALS ANGLE OF REFLECTION. TO DO THIS. 

V02-08E 

oooooo 

00101 

107* 

c 

THE VELOCITY VECTOR FOR THE AEROELEMENT IS ADJUSTED AT THE TIME 

V02-08E 

oooooo 

00101 

108* 

c 

OF BOUNCE TO GIVE THE APPROPRIATE INITIAL DIRECTION. THE 

V02-08E 

oooooo 

00101 

109* 

c 

ACCELERATION OF THE AEROELEMENT IS NOT ADJUSTED. TO ACCOUNT 

V02-08E 

oooooo 

00101 

110* 

c 

FOR SITUATIONS WHERE THE AEROELEMENT IS NOT MOVING AND IS HIT 

V02-08E 

oooooo 

00101 

111* 

c 

BY A MOVING BOUNDARY. THE AEROELEMENT VELOCITY IS FIRST CONVERTED 

V02-08E 

oooooo 

00101 

112* 

c 

TO A VELOCITY RELATIVE TO THE BOUNDARY* ADJUSTED FOR THE BOUNCE* 

V02-08E 

oooooo 

00101 

113* 

c 

AND THEN CONVERTED DACK TO VELOCITY RELATIVE TO THE STATIONARY 

V02-08E 

oooooo 

00101 

114* 

c 

REFERENCE FRAME. 

V02-08E 

oooooo 

00101 

115* 

c 


90100780 

oooooo 

00101 

116* 

c 

SELECTED VARIABLES IN THE ARGUMENT LIST. NOTABLY LZN, ZBL, BDZN. 

90100830 

oooooo 

00101 

117* 

c 

AND NEIZN. ARE PASSED WITH CONTROL PARAMETER LISTS IN DYNAMICALLY 

90100840 

oooooo 

00101 

118* 

c 

VARIABLE ARRAY FORM. AS NOTED IN THE ARGUMENT DESCRIPTIONS. THE 

90100850 

oooooo 

00101 

119* 

c 

CONTROL PARAMETERS CONSIST OF A STARTING POINT LIST AND A STRING 

90100860 

oooooo 

00101 

120* 

c 

LENGTH LIST. THESE DYNAMICALLY VARIABLE 

90180870 

oooooo 

00101 

121* 

c 

ARRAYS ARE ARRANGED SUCH THAT THE SUB-ARRAY RUNS FROM 1 TO THE 

90100890 

oooooo 

00101 

122* 

c 

STRING LENGTH AND THE FIRST ELEMENT IS AT THE STARTING POINT PLUS 

90100900 

oooooo 

00101 

123* 

c 

1. THUS, FOR LZN* THE J TH ELEMENT OF THE I TH FLOW ZONE LIST 

90100910 

oooooo 

00101 

124* 

c 

WOULD BE LZN(IPLZN(I*1)+J) AND THE LENGTH OF THE I TH FLOW ZONE 

90100920 

oooooo 

00101 

125* 

c 

LIST WOULD BE IPLZN(I*2). 

90100930 

oooooo 

00101 

126* 

c 


V02-08H 

oooooo 

00101 

127* 

c 


V02-08H 

oooooo 

00101 

128* 

c 

POSITION HISTORY RING BUFFER 

V02-08H 

oooooo 

00101 

129* 

c 


V02-08H 

oooooo 

00101 

130* 

c 

WITH VERSION V02-08H* A POSITION HISTORY RING BUFFER IS PROVIDED. 

V02-08H 

oooooo 

00101 

131* 

c 

EACH TIME A NEW AEROELEMENT POSITION IS ESTABLISHED* AN ENTRY IS 

V02-08H 

oooooo 

00101 

132* 

c 

MADE IN THE NEXT (REPLACING THE OLDEST) RING BUFFER SLOT. IF AN 

V02-08H 

oooooo 

00101 

133* 

c 

ERROR OCCURS AND DEBUG MESSAGES ARE ENABLED* THE CONTENTS OF THE 

V02-08H 

oooooo 

00101 

134* 

c 

RING BUFFER ARE DUMPED WITH THE ERROR MESSAGE. 

V02-08H 

oooooo 

00101 

135* 

c 


V02-08H 

oooooo 

00101 

136* 

c 

THE FOLLOWING INFORMATION IS RECORDED IN EACH SLOT OF THE 

V02-08H 

oooooo 
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00101 

00101 

00101 

00101 

00101 

137* 

138* 

139* 

140* 

141* 

C 

C 

c 

c 

c 

POSITION-HISTORY RING BUFFER: 
INDEX CONTENTS 

V02-08H 

V02-08H 

V02-08H 

000000 

000000 

000000 

1 INFORMATION AND STATUS 

-Vv)2-uoH 

V02-08H 

UUUvUU 

000000 

00101 

142* 

c 

2 AEROELEMENT ID 

V02-08H 

000000 

00101 

143* 

c 

3 AEROELEMENT X(l) 

V02-08H 

000000 

00101 

144* 

c 

4 AEROELEMENT X<2> 

V02-08H 

000000 

00101 

145* 

c 

5 AEROELEMENT X<3) 

V02-08H 

000000 

00101 

146* 

c 

6 AEROELEMENT X<4> 

V02-08H 

000000 

00101 

147* 

c 

7 FLOW ZONE ID 

V02-08H 

000000 

00101 

148* 

c 

8 SURFACE ID 

V02-08H 

000000 

00101 

149* 

c 

9 SURFACE VALUE 

V02-08H 

000000 

00101 

150* 

c 

10 SURFACE GRADIENT (1) 

V02-0BH 

000000 

00101 

151* 

c 

11 SURFACE GRADIENT (2) 

V02-08H 

000000 

00101 

152* 

c 

12 SURFACE GRADIENT (3) 

V02-08H 

000000 

00101 

153* 

c 


V02-08J 

000000 

00101 

154* 

c 


V02-08J 

000000 

00101 

155* 

c 


V02-08J 

000000 

00101 

156* 

c 


V02-08J 

000000 

00101 

157* 

c 

ZERO VELOCITY IMPACTS 

V02-08J 

000000 

00101 

158* 

c 


V02-08J 

000000 

00101 

159* 

c 

ANOTHER ANOMALOUS SITUATION IS TREATED BY VERSION V02-08J. IT 

V02-08J 

000000 

00101 

160* 

c 

IS POSSIBLE THAT AN AEROELEMENT MAY LIE DIFFERENTIALLY CLOSE TO 

V02-08J 

000000 

00101 

161* 

c 

A BOUNDARY AND HAVE A ZERO VELOCITY NORMAL TO THE BOUNDARY WITH A V02-08J 

000000 

00101 

162* 

c 

FINITE NORMAL ACCELERATION INTO THE BOUNDARY. IN THIS CASE. ANY 

V02-08J 

000000 

00101 

163* 

c 

INCREMENTAL STEP FORWARD IN TIHE WILL CARRY THE AEROELEMENT INTO 

V02-08J 

000000 

00101 

164* 

c 

VIOLATION OF THE BOUNDARY . THE BOUNDARY BOUNCE OPERATION WILL 

V02-08J 

000000 

00101 

165* 

c 

THEN RETURN THE AEROELEMENT TO ITS ORIGINAL POSITION IN SPACE 

V02-08J 

000000 

00101 

166* 

c 

AND TIME AND MODIFY ITS VELOCITY SO THAT THERE IS (STILL) NO 

V02-08J 

000000 

00101 

167* 

c 

VELOCITY COMPONENT NORMAL TO THE BOUNDARY (THE NEGATIVE OF ZERO 

V02-08J 

000000 

00101 

168* 

c 

BEING ZERO) . IN THIS MANNER AN INFINITE LOOP WILL FORM. 

V02-08J 

000000 

00101 

169* 

c 


V02-08J 

000000 

00101 

170* 

c 

THIS SITUATION IS DETECTED BY THE SIMPLE EXPEDIENT OF OBSERVING 

V02-08J 

000000 

00101 

171* 

c 

WHETHER OR NOT THE BOUNCE LOCATOR REPLACED THE ORIGINAL NON- 

V02-08J 

000000 

00101 

172* 

c 

VIOLATING POINT WITH A NEW NON-VIOLATING POINT. IF SUCH A 

V02-08J 

000000 

00101 

173* 

c 

REPLACEMENT MAS MADE. THEN THE ORIGINAL POINT WAS NOT DIFFER- 

V02-08J 

000000 

00101 

174* 

c 

ENTIALLY CLOSE TO THE BOUNDARY SINCE (HA! HA!) A POINT BETWEEN 

V02-08J 

000000 

00101 

175* 

c 

IT AND THE BOUNDARY EXISTED. 

V02-08J 

000000 

00101 

176* 

c 


V02-08J 

000000 

00101 

177* 

c 

IF THIS CONDITION IS IDENTIFIED AS DESCRIBED IN THE PRECEEDING 

V02-08J 

000000 

00101 

178* 

c 

PARAGRAPH. THE ACCELERATION OF THE AEROELEMENT RELATIVE TO THE 

V02-08J 

000000 

00101 

179* 

c 

BOUNDARY IS EXAMINED. IF AN ACCELERATION COMPONENT INTO THE 

V02-08J 

000000 

00101 

180* 

c 

BOUNDARY EXISTS* IT IS SET TO ZERO IN THE FRAME OF REFERENCE OF 

V02-08J 

000000 

00101 

181* 

c 

THE BOUNDARY. 

V02-08J 

000000 

00101 

182* 

c 


V02-08H 

000000 

00101 

183* 

c 


90100940 

000000 

00101 

184* 

c 


90100950 

000000 

00101 

185* 

c 


90100960 

000000 

00101 

186* 

c 


90100970 

000000 

00101 

187* 

c 


90100980 

000000 

00101 

188* 

c 


90100990 

000000 

00101 

189* 

c 


90101000 

000000 

00101 

190* 

c 


90102500 

000000 

00101 

191* 

c 

REQUIRED SUBROUTINES ****** 

90182510 

000000 

00101 

192* 

c 


90182512 

000000 

00101 

193* 

c 

401 AVIRI 

90182514 

000000 

00101 

194* 

c 

402 X 

90182516 

000000 

00101 

195* 

c 

404 U 

90182518 

000000 

00101 

196* 

c 

406 A 

90182520 

000000 

00101 

197* 

c 

417 STSTAT 416 STAT 

90182522 

000000 

00101 

198* 

c 

421 STFZ 420 FZ 

90182524 

000000 

00101 

199* 

c 

470 FVIRI 

90182534 

000000 

00101 

200* 

c 

471 ZBL 

90182536 

000000 

00101 

201* 

c 

475 HVIRI 476 IPZBL 

90182538 

000000 

00101 

202* 

c 

911 MRRM 912 TSTZN 

90182540 

000000 

00101 

203* 

c 


90182542 

000000 

00101 

204* 

c 


90182544 

000000 

00101 

205* 

c 

ERRORS REPORTED ****** 

90182546 

000000 

00101 

206* 

c 


90182548 

000000 

00101 

207* 

c 

1 NEITHER RESULT OF BOUNDARY SURFACE FINDER WAS 

90182550 

000000 

00101 

208* 

c 

SAFE (901X3870). 

90182552 

000000 
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00101 

209* 

C 

2 BOUNDARY SURFACE FINDER SETUP PUSHED 'Q' BACK 

90182554 

000000 

00101 

210* 

C 

BEYOND ZERO TIhE WITHOUT FINDING A SAFE POSITION 

90182556 

000000 

00101 

211* 

C 

(901X3348). 

90182558 

000000 

00101 

212* 

C 

3 AN AEROELENENT FLOW PATH WAS FOUND THAT LEADS TO 

901A2560 

000000 

00101 

213* 

C 

BOUNDARY VIOLATION WITHOUT CROSSING A LEGITIMATE 

901A2565 

000000 

00101 

214* 

C 

ACTIVE BOUNDARY. 

901A2570 

000000 

00101 

215* 

C 

A THE BOUNDARY INTERCEPT LOCATOR FAILED TO LOCK ON 

901A2575 

000000 

00101 

216* 

C 

TO AN EXISTING ACTIVE BOUNDARY. 

901A2580 

000000 

00101 

217* 

c 



901A2585 

000000 

00101 

218* 

c- 



901A2590 

000000 

00103 

219* 


PARAMETER 0URID=901 

0 

V02-08H 

000000 

00104 

220* 


PARAMETER IBUMPC=100 

0 INITIAL BUMP COUNT 

V02-08L 

000000 

00105 

221* 


PARAMETER IRBL=100 

0 RING BUFFER LENGTH 

V02-08H 

000000 

00106 

222* 


PARAMETER IRBIS=1 

0 INFORMATION AND STATUS 

V02-08H 

000000 

00107 

223* 


PARAMETER IRBAI=2 

0 AEROELEMENT ID 

V02-08H 

000000 

00110 

224* 


PARAMETER IRBX1=3 

0 AEROELEMENT XU) 

V02-08H 

000000 

00111 

225* 


PARAMETER IRBX2=4 

0 AEROELEMENT X<2) 

V02-08H 

000000 

00112 

226* 


PARAMETER IRBX3=5 

0 AEROELEMENT X(3) 

V02-08H 

000000 

00113 

227* 


PARAMETER IRBX4=6 

0 AEROELEMENT X<4) 

V02-08H 

000000 

00114 

228* 


PARAMETER IRBFI=7 

0 FLOW ZONE ID 

V02-08H 

000000 

00115 

229* 


PARAMETER IRBSI=8 

0 SURFACE ID 

V02-08H 

000000 

00116 

230* 


PARAMETER IRBSV=9 

0 SURFACE VALUE 

V02-08H 

000000 

00117 

231* 


PARAMETER IRBG1=10 

0 SURFACE GRADIENT (1) 

V02-08H 

000000 

00120 

232* 


PARAMETER IRBG2=11 

0 SURFACE GRADIENT (2) 

V02-08H 

000000 

00121 

233* 


PARAMETER IRBG3=12 

0 SURFACE GRADIENT (3) 

V02-08H 

000000 

00122 

234* 


PARAMETER IRBM=12 

0 SLOT LENGTH 

V02-08H 

000000 

00123 

235* 


INCLUDE PGSDEF 

0 PAX GLOBAL STATUS DEFINITIONS 

V02-08H 

000000 

00123 

236* 

c+ 



V02-08H 

000000 

00123 

237* 

c 

POSITION RING BUFFER STATUS BITS 

V02-08H 

000000 

00123 

238* 

c- 



V02-08H 

000000 

00126 

239* 


PARAMETER IRBISA=1 

0 AEROELEMENT ID/POSITION VALID 

V02-08H 

000000 

00127 

240* 


PARAMETER IRBISF=2 

0 FLOW ZONE ID VALID 

V02-08H 

000000 

00130 

241* 


PARAMETER IRBI5S=4 

0 SURFACE ID VALID 

V02-08H 

000000 

00131 

242* 


PARAMETER IRBISV=8 

0 SURFACE VALUE VALID 

V02-08H 

000000 

00132 

243* 


PARAMETER IRBISG=16 

0 GRADIENT VALID 

V02-08H 

000000 

00133 

244* 


PARAMETER LU0UP=6 

0 LOGICAL UNIT FOR OUTPUT 

V02-08H 

000000 

00134 

245* 


INTEGER ILj IHjIS 


901A2595 

000000 

00135 

246* 


INTEGER FZfSTAT ,EIPLZN,ST fEMODtSTPI rELZNrDLZN 


000000 

00136 

247* 


COMMON /NZNC/NZN 


90102620 

000000 

00137 

248* 


COMMON /IBUC/IDU 


90182630 

000000 

00140 

249* 


REAL CURTIM>GDAST 


90182670 

000000 

00141 

250* 


INTEGER NINC 


90182680 

000000 

00142 

251* 


INTEGER ZBL 


V02-08G 

000000 

00143 

252* 


INTEGER IRBdRBHf IRBL) 

0 POSITION RING BUFFER 

V02-08H 

000000 

00144 

253* 


INTEGER IRBPT 

0 POSITION RING BUFFER POINTER 

V02-08H 

000000 

00145 

254* 


INTEGER IRBPP 

0 

V02-08H 

000000 

00146 

255* 


REAL AL(3)rXL(4),XQ<4) 

,XN(4),XA(4),GB<3) 

V02-08F 

000000 

00147 

256* 


REAL UL(4) ,UQ(4) ,UN(4) 

?UA(4) 

V02-08F 

000000 

00150 

257* 


REAL VB0(3) 


V02-08E 

000000 

00151 

258* 


REAL ARB (IRBMr IRBL) 

0 POSITION RING BUFFER 

V02-08H 

000000 

00152 

259* 


EQUIVALENCE (IRB(IfI) f 

ARB(IfD) 0 

V02-08H 

000000 

00153 

260* 


DATA IRBPT/O/ 

0 

V02-08H 

000000 

00155 

261* 


DATA IRBPP/O/ 

0 

V02-08H 

000000 

00157 

262* 


DEFINE EZBLd)=ZBL(I) 


90112715 

000000 

00160 

263* 


DEFINE DZBL < X f J> =EZBL ( IPZBL ( M ) + J ) 

90112720 

000000 

00161 

264* 


DEFINE EIPLZNdr J)=IPLZN(I» J) 

90112725 

000000 

00162 

265* 


DEFINE ST(I)=EIPLZN(FZ(I ) rl ) 

90112730 

000000 

00163 

266* 


DEFINE NU(I)=EIPLZN(FZ(I) »2) 

90112740 

000000 

00164 

267* 


DEFINE EMODdr J)=MQD<I 

»J) 

90112745 

000000 

00165 

268* 


DEFINE STP1 (I)=EIPLZN(EMQD(FZ(I) ,NZN)+1 ,1) 

90112750 

000000 

00166 

269* 


DEFINE ELZN(I)=LZN(I) 


90112755 

000000 

00167 

270* 


DEFINE DLZN(I)=ELZN(STd)+NU(I)) 

90112760 

000000 

00170 

271* 


IF (IRBPT) 2751 f 2751 f 2755 0 SHALL WE INIT RING BUFFER ? 

V02-08H 

000000 

00173 

272* 

2751 

IRBPT=1 

0 YES, RESET POINTER 

V02-08H 

000002 

00174 

273* 


DO 2754 1=1, IRBL 

0 ZAP BUFFER 

V02-08H 

000007 

00177 

274* 


DO 2754 J=1 f IRBM 

0 

V02-08H 

000007 

00202 

275* 

2754 

IRB(JfI)=0 

0 

V02-09H 

000007 

00205 

276* 

2755 

CONTINUE 

0 

V02-08H 

000011 

00206 

277* 


TINC=GDAST/NINC 

0CALC SUB-INCREMENT 

90102770 

000011 

00207 

278* 


TINCSQ=0.5*TINC*TINC 

0CALC 1/2 SQUARE SUB-INCREMENT901 12780 

000015 

00210 

279* 


TE=0»001*TINC 

0TOLERANCE OF BOUNCES IN TIME 90132785 

000020 

00211 

280* 


CALL CHKLH (ILfIHfIS, 901 , 5) 0 GO CHECK AEROELEMENT RANGE 

901A2790 

000023 
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00212 

281* 


IF (IS) 2796*2794*2796 

0 VALID RANGE ? 

901A2792 

000032 

00215 

282* 

2794 

RETURN 

8 NO 

901A2794 

000034 

00216 

283* 

2796 

DO 221 I1=IL*IH*IS 

8 IN RANGE AEROELEHENT LOOP 

901A2796 

000040 

00221 

284* 


CALL CHKTIM <IL*IH,I1) 

0 KEEP AN EYE ON THE TIME 


000046 

00222 

285* 


IZVCF=0 

& SHOW NO ZERO VELOCITY PROB 

V02-08J 

000053 

00223 

286* 


IBUHF-IBUMPC 

0 INIT BUMP COUNTER 

V02-08L 

000054 

00224 

287* 


IFZ=FZ(I1) 

0 LOCALIZE 


000056 

00225 

288* 


CALL STIAES <I1*IFZ) 

0 OUTPUT IN CASE OF A SKIP 


000062 

00226 

289* 


DO 201 1=1 >3 

8 LOCALIZE 


000071 

00231 

290* 


XL(I)=X(I1*I) 

& ORIGINAL POSITION 


000071 

00232 

291* 


UL(I)=U(I1*I) 

0 ORIGINAL VELOCITY 


000076 

00233 

292* 


AL(I)=A<I1,I> 

0 ACCELERATION 


000103 

00234 

293* 


CALL STS <IlrI*XL(I>> 

9 OUTPUT POSITION AND VELOCITY 

000110 

00235 

294* 


CALL STS (11 *I+3*UL( I) ) 

8 IN CASE OF A SKIP 


000117 

00236 

295* 

201 

CONTINUE 

8 


000133 

00240 

296* 


IF ( ANB(STATdl) >2**9) ) 221*2820*221 8 SKIP IF SPECIAL 


000133 

00243 

297* 

2820 

IF (IFZ-IDU) 2830*221*2830 

8 SKIP IF IN THE DOG HOUSE 


000143 

00246 

298* 

2830 

XL(4)=CURTIM 

8 


000146 

00247 

299* 


DO 219 1=1 *NINC 

0START TIME SUB-INCREMENT L00P90102850 

000153 

00252 

300* 


T=TINC 

0SET TIME SPAN 

90102860 

000153 

00253 

301* 


TS=TINCSQ 

0SET 1/2 SQUARE TIME SPAN 

90102870 

000155 

00254 

302* 


TLEFT=0.0 

0SET TIME REMAINING SUB-INC 

90102880 

000157 

00255 

303* 


IDB=-1 

0SET BOUNDARY NO-VIO FLAG 

90102890 

000160 

00256 

304* 

101 

CALL SPC (XL*UL*T> 

8 POSITION AT END OF SPAN 

V02-08F 

000163 

00257 

305* 


CALL YNM (XL) 

8 GO CHECK ALL BOUNDARIES 

901A2930 

000167 

00260 

306* 


IF (IFZ-IDU) 103,4100*103 

8 LOST FLOW ZONE TRACK ? 

V02-08K 

000172 

00263 

307* 

103 

IF (SVHIN) 106*106*104 

8 NO* 106 ON VIOLATION 

V02-08K 

000175 

00266 

308* 

104 

IF (IDB) 219*105*105 

0CHK FOR PENDING BOUNCE 

90103070 

000200 

00271 

309* 

105 

IBUMP=I8UMP-1 

8 ONE LESS BUMP ALLOWED 

V02-08L 

000203 

00272 

310* 


IF (IBUHP) 4302*4325*4325 

8 BUMPED TOO OFTEN ? 

V02-08L 

000206 

00275 

311* 

4302 

CALL TOGSW (PGSBUG* *4303 *44307) 

8 YES* SHALL WE PRINT MESG ? 

V02-08L 

000210 

00276 

312* 

4303 

WRITE ( LUOUP * 4304 » ENB=4307 * ERR=4307 ) 8 YES* DO SO NOW 

V02-08L 

000216 

00300 

313* 

4304 

FORMAT ( 58H0C ASPER9 . MQVELD (BUG) — 

AEROELEMENT BUMPED TOO MANY TIV02-08L 

000224 

00300 

314* 


1MES*/*27H HISTORY BUFFER FOLLOWS* * 

.) 8 

V02-08L 

000224 

00301 

315* 


CALL RBDMP 

8 DUMP THE HISTORY BUFFER 

V02-08L 

000224 

00302 

316* 

4307 

CALL STIAES (I1*IDU) 

8 DISCARD THIS TURKEY 

V02-08L 

000227 

00303 

317* 


GO TO 221 

8 DON'T WORK ANY MORE ON HIM 

V02-08L 

000232 

00304 

318* 

4325 

CALL GRDBD (XL*IDB*GB) 

8 BOUNCE — GET GRADIENT 

V02-08L 

000234 

00305 

319* 


ARB(IRBG1*IRBPP)=GB( 1 ) 

8 RECORD GRADIENT RESULT 

V02-08H 

000242 

00306 

320* 


ARB ( I RBG2 * I RBPP ) =GB ( 2 ) 

8 

V02-08H 

000244 

00307 

321* 


ARB( IRBG3 * IRBPP)=GB( 3) 

8 

V02-08H 

000246 

00310 

322* 


IRB( IRBIS* IRBPP)=OR(IRB(IRBIS*IRBPP) * IRBISG) 8 

V02-08H 

000250 

00311 

323* 


CALL SURFVE (XL* IDB*VB0*$107> 

8 GET SURFACE VELOCITY 

V02-08E 

000253 

00312 

324* 

107 

DO 108 K=1 *3 

8 GET VELOCITY OF AEROELEMENT 

V01-08E 

000264 

00315 

325* 

108 

UL(K)=UL(K)-VBO(K) 

8 RELATIVE TO SURFACE 

V02-08E 

000264 

00317 

326* 


B=0.0 

0CLR ACCUMULATOR 

90103090 

000267 

00320 

327* 


C=0»0 

0CLR ACCUMULATOR 

90103100 

000270 

00321 

328* 


DO 204 K=l*3 

^ACCUMULATE LENGTH SQUARED 

90103110 

000274 

00324 

329* 

204 

B=B+GB(K)**2 

8 OF GRADIENT VECTOR 

90103120 

000274 

00326 

330* 


B=1*0/SDRT (B) 

0FAST DIVIDE LENGTH OF GRAD 

90133130 

000300 

00327 

331* 


DO 205 K=1 *3 

0LOOP TO 

90103140 

000311 

00332 

332* 


GB(K)=B*GB(K) 

8 NORMALIZE GRADIENT 

90103150 

000311 

00333 

333* 

205 

C=C+GB(K)*UL(K) 

8 ACCUMULATE DOT PROD VEL0CTY90103160 

000313 

00335 

334* 


C=2.0*C 

0ADJUST CONSTANT FOR BOUNCE 

90103170 

000317 

00336 

335* 


DO 206 K=l*3 

0BOUNCE! VELOCITY ANGLE INCID*90103180 

000324 

00341 

336* 

206 

UL(K)=UL(K)-C*GB(K) 

0 EQUALS ANGLE OF REFLECTION 90103190 

000324 

00343 

337* 


DO 208 K=1 *3 

0 AEROELEMENT VELOCITY RELA- 

V02-08E 

000333 

00346 

338* 

208 

UL(K)=UL(K)+VBO(K) 

0 TIVE TO STATIONARY FRAME 

V02-08E 

000333 

00350 

339* 


IF (IZVCF) 4001*4012*4001 

0 GOT A ZERO VELOCITY PROB ? 

V02-08J 

000336 

00353 

340* 

4001 

CALL SURFAC <XL*IDB,VB0**4002) 

0 YES* GET SURFACE'S ACCEL 

V02-08J 

000340 

00354 

341* 

4002 

DO 4003 K=1 *3 

e GET ACCELERATION OF ELEMENT V02-08J 

000351 

00357 

342* 

4003 

AL(K)=AL(K)-VBO(K) 

0 RELATIVE TO SURFACE 

V02-08J 

000351 

00361 

343* 


C=0.0 

0 CALC COMPONENT OF ACCEL 

V02-08J 

000354 

00362 

344* 


DO 4006 K=l*3 

0 NORMAL TO THE BOUNDARY 

V02-08J 

000360 

00365 

345* 

4006 

C=C+(GB(K)*AL(K) ) 

0 (GRAD HAS BEEN NORMALIZED) 

V02-08J 

000360 

00367 

346* 


IF (C) 4008*4010*4010 

0 ANY ACCEL INTO BOUNDARY ? 

V02-08J 

000364 

00372 

347* 

4008 

DO 4009 K=l*3 

0 YES* REMOVE IT 

V02-08J 

000371 

00375 

348* 

4009 

AL(K)=AL(K)-(C*GB(K) ) 

0 

V02-08J 

000371 

00377 

349* 

4010 

DO 4011 K=1 *3 

0 ADJUST ACCEL BACK TO 

V02-08J 

000400 

00402 

350* 

4011 

AL(K)=AL(K)+VBO(K) 

0 STATIONARY FRAME 

V02-08J 

000400 

00404 

351* 

4012 

CONTINUE 

0 

V02-08J 

000404 

00405 

352* 


T=TLEFT 

0SET TIME SPAN FOR REST OF 

90103200 

000404 
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00406 

3531 


TLEFT=0.0 

0CLR REMAINING TIME 

90103220 

000405 

00407 

354* 


IDB=-1 

0W1PE OUT PENDING BOUNCE 

90103230 

000406 

00410 

355* 


60 TO 101 

0JMP BACK - FINISH SUB-INCREMT 90 103240 

000410 

00410 

356* 

C+ 



901A3250 

000410 

00410 

357* 

C 

THE FOLLOWING SECTION IS ENTERED WHEN A BOUNDARY IS VIOLATED. 

901A3260 

000410 

00410 

358* 

C 

IT BACKS THE PARTICLE UP ALONG ITS PATH TO LOCATE THE POINT 

901A3270 

000410 

00 410 

359* 

C 

AT WHICH IT FIRST PENETRATES A BOUNDARY. WHEN THIS POINT IS 

901A3280 

000410 

00410 

360* 

C 

LOCATED TO WITHIN TOLERANCE 'TE' THE ID OF THE BOUNDARY 

901A3290 

000410 

00410 

361* 

c 

ABOUT TO BE VIOLATED IS LOADED INTO 

'IDB' AND THE TIME IS 

901A3300 

000410 

00410 

362* 

c 

SUBDIVIDED TO CAUSE A STEP JUST TO THE BOUNDARY FOLLOWED BY 

901A3310 

000410 

00410 

363* 

c 

A BOUNCE AND A STEP TO THE END OF THE TIhE SUB-INCREHENT. 

901A3320 

000410 

00410 

364* 

c 



901A3330 

000410 

00410 

365* 

c 

IN LOCATING THE NEAR-VIOLATION POINT ALL BOUNDARIES IN THE 

901A3340 

000410 

00410 

366* 

c 

MANDATORY FLOW ZONE AND IN THE AEROELEMENT 'S FLOW ZONE OF 

901A3350 

000410 

00410 

367* 

c 

RESIDENCE ARE CHECKED TO PRODUCE A VIOLATION/NO-VIOLATION 

901A3360 

000410 

00410 

368* 

c 

DECISION. THIS DECISION SHOULD BE BASED ON AT LEAST ONE 

901A3370 

000410 

00410 

369* 

c 

BOUNDARY EVALUATION THAT DID NOT TRUNCATE. IF THIS IS NOT 

901A3380 

000410 

00410 

370* 

c 

THE CASE ERROR *3 IS REPORTED. A PROPER CASPER PROBLEM 

901A3390 

000410 

00410 

371* 

c 

SETUP MAY NOT HAVE ANY AEROELEMENT FLOW PATH THAT CROSSES 

901A3400 

000410 

0041Q 

372* 

c 

FROM A NON-VIOLATION AREA TO A VIOLATION AREA WITHOUT 

901A3410 

000410 

00410 

373* 

c 

CROSSING A DEFINED BOUNDARY SURFACE 

♦ 

901A3420 

000410 

00410 

374* 

c- 



901A3430 

000410 

00411 

375* 

106 

NNN=0R(STAT(I1) >2**8) 

8 SET MANDATORY SIFT BIT 

901A3440 

000412 

00412 

376* 


CALL STSTAT (IlfNNN) 

8 

901A3450 

000417 

00413 

377* 


IZVCF=IZVCF+1 

8 BUMP ZERO VELOCITY FLAG 

V02-08J 

000423 

00414 

378* 


TN=T 

8 N IMPLIES A POINT IN 

901A3460 

000426 

00415 

379 * 


DO 3480 J=l>4 

8 VIOLATION 

901A3470 

000433 

00420 

380* 


UN( J)=UL( J) 

8 

V02-08F 

000433 

00421 

381* 

3480 

XN( J)=XL( J) 

8 

901A3480 

000434 

00423 

382* 


TA=-T 

8 XL BACK TO ORIGINAL SPOT 

901A3490 

000437 

00424 

383* 

3500 

CALL SPC (XL>UL>TA) 

8 

V02-08F 

000442 

00425 

384* 


CALL YNM <XL) 

8 CHECK BOUNDARIES HERE 

901A3510 

000446 

00426 

385* 


IF (IFZ-IDU) 3529 >4 100 >3529 

8 LOST FLOW ZONE TRACK ? 

V02-08K 

000451 

00431 

386* 

3529 

IF (SVMIN) 3530 > 3530,3600 

8 NQ> NON-VIOLATING ? 

V02-08K 

000454 

00434 

387* 

3530 

IF (XL(4) ) 3570 >3570 >3540 

8 N0> CAN WE BACK UP FURTHER T901A3530 

000457 

00437 

388* 

3540 TN=TN-TA 

8 KEEP TRACK OF TIME SPANS 

901A3540 

000462 

00440 

389* 


T=T-TA 

8 

901A3550 

000465 

00441 

390* 


GO TO 3500 

8 GO BACK IT UP 

901A3560 

000470 

00442 

391* 

3570 CALL ERR0R2 (901>2) 

8 CAN'T SHAKE BOUNDARY 

901A3570 

000472 

00443 

392* 


CALL TOGSW (FGSBUG> $3572 >$3580) 

8 SHALL WE PROVIDE A MESSAGE 7V02-08H 

000475 

00444 

393* 

3572 

WRITE ( LUOUP > 3573 > END=358Q > ERR=3580 ) 6 YES 

V02-08H 

000503 

00446 

394* 

3573 

FORMAT ( 67H0CASPER9 ♦ MOVELD (BUG) — 

UNABLE TO BACK AEROELEMENT 0UTVO2-O8H 

000511 

00446 

395* 

1 OF C0NFLICT>/>27H HISTORY BUFFER FOLLOWS...) 8 

V02-08H 

000511 

00447 

396* 


CALL RBDMP 

8 DUMP THE HISTORY 

V02-08H 

000511 

00450 

397* 

3580 

CALL STIAES <I1>IDU) 

8 THIS TURKEY GOES TO SHEOL 

V02-08H 

000514 

00451 

398* 


GO TO 221 

8 

901A3590 

000517 

00452 

399* 

3600 

TQ=0.0 

8 Q IMPLIES A POINT NOT IN 

901A3600 

000521 

00453 

400* 


DO 3620 J=i?4 

8 VIOLATION 

901A3610 

000524 

00456 

401* 


UQ(J)=UL(J) 

8 

V02-08F 

000524 

00457 

402* 

3620 

XQ( J)=XL( J) 

8 

901A3620 

000525 

00461 

403* 


IE3F=0 

8 ERROR 3 ABORT FLAG 

901A3630 

000530 

00462 

404* 


DO 3790 J=l>15 

8 BISECTION LOOP 

901A3640 

000534 

00465 

405* 


IF (ABS(TN-TQ)-TE) 3800 >3660 >3660 

8 CLOSE ENOUGH ? 

901A3650 

000534 

00470 

406* 

3660 

TA=0.5*(TN+TG) 

8 N0> BISECT AGAIN 

901A3660 

000542 

00471 

407* 


CALL SPC <XA,UA,TA) 

0 FIND THAT POINT IN SPACE 

V02-08F 

000546 

00472 

408* 


CALL YNM (XA) 

8 TEST THE BOUNDARIES 

901A3680 

000553 

00473 

409* 


IF (IFZ-IDU) 3664>4100>3664 

0 LOST FLOW ZONE TRACK ? 

V02-08K 

000556 

00476 

410* 

3664 

IF (IDMIN) 3710>3710>3700 

0 N0> DID ALL TRUNCATE ? 

V02-08K 

000561 

00501 

411* 

3700 

IE3F=IDMIN 

0 N0> FLAG AN ACTIVE BOUNDARY 901B3700 

000564 

00502 

412* 

3710 

IF (SVMIN) 3760 >3760 >3720 

0 A NON-VIOLATING POINT ? 

901A3710 

000566 

00505 

413* 

3720 

TQ=TA 

0 YES> REPLACE Q POINT 

901A3720 

000570 

00506 

414* 


DO 3740 K=l»4 

0 

901A3730 

000575 

00511 

415* 


UQ(K)=UA(K) 

0 

V01-08F 

000575 

00512 

416* 

3740 

XQ(K)=XA(K) 

0 

901A3740 

000576 

00514 

417* 


IZVCF=0 

8 SHOW NO ZERO VELOCITY GLITCHV02-08J 

000601 

00515 

418* 


GO TO 3790 

0 

901A3750 

000602 

00516 

419* 

3760 

TN=TA 

0 N0> REPLACE N POINT 

901A3760 

000604 

00517 

420* 


DO 3780 K=l>4 

0 

901A3770 

000610 

00522 

421* 


UN(K)=UA(K) 

0 

V02-08F 

000610 

00523 

422* 

3780 

XN(K)=XA(K) 

0 

901A3780 

000611 

00525 

423* 

3790 

CONTINUE 

0 

901A3790 

000617 

00527 

424* 

3800 

IF (IE3F) 3810>3810>3840 

e CONSTRUCTION PROBLEM ? 

901A3800 

000617 
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00532 

425* 

3810 

CALL ERR0R2 (901,3) 

0 YES. REPORT IT 

901A3810 

000621 

00533 

426* 


CALL TOGSW (PGSBUG, *3812, *3816) 

0 PRINT A MESSAGE ? 

V02-08H 

000625 

00534 

427* 

3812 

WRITE (LUOUP, 3813, END=3816,ERR=3816) 0 YES 

V02-08H 

000633 

00536 

428* 

3813 

FORMAT ( 82H0CASPER9. MOVELD (BUG) 

— A BISECTION PROCESS DID NOT ENV02-08H 

000641 

00536 

429* 


1C0UNTER A GOVERNING SURFACE?/, 27H HISTORY BUFFER FOLLOWS,..) 0 

V02-08H 

000641 

00537 

430* 


CALL RBDMP 

0 PRINT HISTORY BUFFER 

V02-08H 

000641 

00540 

431* 

3816 

CALL STIAES (I1?IDU) 

g FORGET THIS GUY 

V02-08H 

000644 

00541 

432* 


GO TO 221 

0 

901A3830 

000647 

00542 

433* 

3840 

IF (IDHIN) 3850,3850,3880 

0 ALGORITHM DIDN'T TRACK ? 

901A3840 

000651 

00545 

434* 

3850 CALL ERR0R2 (901,4) 

0 YES, VERY ODD 

901A3850 

000653 

00546 

435* 


CALL TOGSW (PGSBUG, *3852, *3856) 

@ SHALL WE PRINT A MESSAGE ? 

V02-08H 

000657 

00547 

436* 

3852 

WRITE ( LUOUP , 3853 , END=3856 , ERR=3856 ) 0 YES 

V02-08H 

000665 

00551 

437* 

3853 

FORMAT ( 71H0CASPER9. MOVELD (BUG) 

— BISECTION PROCESS DID NOT FINIV02-08H 

000673 

00551 

438* 


1SH ON A B0UNDARY,/»27H HISTORY ! 

BUFFER FOLLOWS...) 0 

V02-08H 

000673 

00552 

439* 


CALL RBDMP 

0 DUMP THIS HISTORY BUFFER 

V02-08H 

000673 

00553 

440* 

3856 

CALL STIAES (I1,IDU) 

0 BLACK HOLE TIME 

V02-08H 

000676 

00554 

441* 


GO TO 221 

0 

901A3870 

000701 

00555 

442* 

3880 

IDB=IDMIN 

0 BOUNCE OFF THIS BOUNDARY 

901A3880 

000703 

00556 

443* 


TLEFT=TLEFT+T-TQ 

0 TIME TO GO AFTER BOUNCE 

901A3890 

000704 

00557 

444* 


T=TQ 

0 TIME TO BOUNCE 

901A3920 

000710 

00560 

445* 


GO TO 101 

0TRY SHORTER TIME SPAN 

90103960 

000712 

00561 

446* 

219 

CONTINUE 

0END TIME SUB-INCREMENT LOOP 

90103970 

000715 

00563 

447* 


GO TO 6000 

0 JOIN NORMAL CLEANUP CODE 

V02-08K 

000715 

00564 

448* 

4100 

CALL TOGSW (PGSBUG, *4101 ,*6000) 

0 PRINT ZONE NOT FOUND MSG ? 

V02-08K 

000717 

00565 

449* 

4101 

WRITE ( LUOUP ,4102, END=6000 , ERR=6000 ) 0 YES 

V02-08K 

000724 

00567 

450* 

4102 

FORMAT ( 44H0CASPER9 . MOVELD (BUG) 

— FLOW ZONE NOT FOUND, /,27H HISV02-08K 

000732 

00567 

451* 


1T0RY BUFFER FOLLOWS.,.) 

0 

V02-08K 

000732 

00570 

452* 


CALL RBDMP 

0 DUMP THIS HISTORY BUFFER 

V02-08K 

000732 

00571 

453* 

6000 

DO 220 1=1,3 

0 RECORD NEW POSITION AND 

V02-08K 

000737 

00574 

454* 


CALL STS (11, I»XL(I) > 

0 VELOCITY RESULTS IN 


000737 

00575 

455* 

220 

CALL STS (11 ,I+3,UL( I ) ) 

0 ASSIGNED SLOTS 


000746 

00577 

456* 


CALL STIAES (11 ,IFZ) 

0 RECORD FINAL FLOW ZONE 


000762 

00600 

457* 

221 

CONTINUE 

0END ELEMENT BY ELEMENT LOOP 

90104010 

000770 

00602 

458* 


RETURN 


90104140 

000770 

00603 

459* 


SUBROUTINE SPC (Y,Z,TI) 

0 

V02-08F 

001021 

00603 

460* 

C+ 



901A4160 

001021 

00603 

461* 

C 

LOADS VECTOR Y WITH AEROELEMENT POSITION AT TIME 'TI' RELATIVE 

901A4170 

001021 

00603 

462* 

C 

TO 'XL'. CALCULATES VELOCITY AT 

Y AND PLACES IT IN Z, 

V02-08F 

001021 

00603 

463* 

C 



V02-08H 

001021 

00603 

464* 

C 

BEGINNING WITH VERSION V02-08H, 

SPC ALSO BEGINS A NEW ENTRY IN 

V02-08H 

001021 

00603 

465* 

C 

THE POSITION-HISTORY RING BUFFER 

. 

V02-08H 

001021 

00603 

466* 

C- 



901A4190 

001021 

00606 

467* 


REAL Y(4) ,Z(3) ,TI 

0 

V02-08F 

001021 

00607 

468* 


DO 13 N=l, 3 


901A4210 

001021 

00612 

469* 


Y(N)=XL(N)+(TI*UUN>)+(0.5*TI*TI*AL(N)> 

V02-08F 

001041 

00613 

470* 


IDUM=IRFX1-1+N 

0 FORM INDEX 

V02-08H 

001050 

00614 

471* 


ARB(IDUM,IRBPT)=Y(N) 

0 RECORD POSITION 

V02-08I 

001053 

00615 

472* 

13 

Z(N)=UL(N)+(TI*AL(N) ) 


V02-08F 

001057 

00617 

473* 


Y(4)=XL(4)+TI 


901A4230 

001065 

00620 

474* 


ARB(IRBX4» IRBPT)=Y(4) 

0 RECORD TIME 

V02-08H 

001070 

00621 

475* 


IKB(IRBAI,IRBPT)=I1 

0 RECORD AEROELEMENT ID 

V02-08H 

001072 

00622 

476* 


IRB(IRBIS,IRBPT)=IRBISA 

0 SHOW INITIAL VALIDITY 

V02-08H 

001074 

00623 

477* 


IRBPP=IRBPT 

0 RECORD PTR FOR FURTHER USE 

V02-08I 

001076 

00624 

478* 


IRBPT=IRBPT+1 

0 BUMP TO NEXT SLOT SINCE 

V02-08H 

001100 

00625 

479* 


IF (IRBPT-IRBL) 15,15,14 

0 THIS ENTRY IS NOW 'USED' 

V02-08H 

001102 

00630 

480* 

14 

IRBPT=1 

0 ALTHOUGH ADDITIONAL INFO 

V02-08H 

001105 

00631 

481* 

15 

CONTINUE 

0 MAY BE ADDED LATER 

V02-08H 

001110 

00632 

482* 


RETURN 


901A4240 

001110 

00633 

483* 


SUBROUTINE YNM (Y) 


901A5000 

001142 

00633 

484* 

C+ 



901A5010 

001142 

00633 

485* 

C 

1) IDENTIFIES FLOW ZONE OF SPACE-TIME POINT 'Y' AND UPDATES 

901A5020 

001142 

00633 

486* 

c 

FLOW ZONE OF AEROELEMENT '11' 

IF NECESSARY. 

901A5030 

001142 

00633 

487* 

c 

2) CHECKS ALL APPROPRIATE BOUNDARIES TO PRODUCE 'IDMIN'/'SVMIN'. 

901A5040 

001142 

00633 

488* 

c 

DOES NOT CONSIDER FOR 'IDMIN' 

/'SVMIN' BOUNDARIES THAT ARE 

901A5050 

001142 

00633 

489* 

c 

SAFE BY TRUNCATION. 


901A5060 

001142 

00633 

490* 

c 

3) DISCONTINUES SEARCH IF 'SVMIN 

' GOES NEGATIVE. 

901A5070 

001142 

00633 

491* 

c 



V02-08H 

001142 

00633 

492* 

c 

BEGINNING WITH VERSION V02-08Hf 

YNM RECORDS IN THE POSITION- 

V02-0BH 

001142 

00633 

493* 

c 

HISTORY RING BUFFER THE FLOW ZONE ID AND THE ID AND SURFACE 

V02-08H 

001142 

00633 

494* 

c 

VALUE OF THE GOVERNING SURFACE. 


V02-08H 

001142 

00633 

495* 

c 



V02-08K 

001142 

00633 

496* 

c 



V02-08K 

001142 


Listing 7.— Continued. 


00633 

497* 

C 

BEGINNING WITH VERSION V02-08K, THIS ROUTINE CHECKS FOR THE 

V02-08K 

001142 

00633 

498* 

C 

FLOkl-ZONE-NOT-FOUND ERROR AND REPORTS IT TO THE CALLER BY 

V02-08K 

001142 

00633 

499* 

C 



V02-08K 

001142 

00633 

500* 

C 

1* SETTING THE FLu“ ZONE TO THE UNUSED ZONE AND 

V02-08K 

001142 

00633 

501* 

C 



V02-08K 

001142 

00633 

502* 

C 

2* SETTING SONIN AND IDHIN TO -1. 


V02-08K 

001142 

00633 

503* 

C- 



901A5080 

001142 

00636 

504* 


REAL Y(4) 


901A5090 

001142 

00637 

505* 


N=1 

8 SET MANDATORY ZONE FIRST 

V02-08K 

001142 

00640 

506* 


IDHIN=-1 

8 INIT FOR SURFACE VALUE 

V02-08K 

001146 

00641 

507* 


SVMIN=l,0E+30 

8 MINIMUM SEARCH 

V02-08K 

001150 

00642 

508* 


IRB ( IRBFI » IRBPh . =IFZ 

8 RECORD ENTERING FLOW ZONE 

V02-08K 

001152 

00643 

509* 


IRB(IRBIS,IRBPP)=OR(IRB(IRBIS, IRBPP), IRBISF) 8 NARK IT VALID 

V02-08K 

001154 

00644 

510* 


CALL TSTZN (Y,IFZ,IFZ) 

8 CHECK FLOW ZONE ID 

V02-08K 

001157 

00645 

511* 


IF (IFZ-1) 29.26,29 

8 DID WE FIND A ZONE ? 

V02-08K 

001164 

00650 

512* 

26 

IFZ=IBU 

8 NO, SET HIM UNUSED 

V02-08K 

001167 

00651 

513* 


CALL STIAES (Il.IDU) 

8 HERE, TOO 

V02-08K 

001171 

00652 

514* 


5VMIN=-1.0 

8 SET IN VIOLATION 

V02-08K 

001175 

00653 

515* 


RETURN 

9 BACK TO CALLER 

V02-08K 

001177 

00654 

516* 

29 

IRB(IRBFI,IRBPP)=IFZ 

8 REVISE ZONE ID IN RING 

V02-08K 

001203 

00655 

517* 


NA=IPZBL(N,2) 

8 NUMBER OF BOUNDARIES IN ZONEV02-08K 

001206 

00656 

518* 


IF (NA) 42,42,31 

8 SKIP NULL TESTS 

901A5180 

001213 

00661 

519* 

31 

NB=IPZBL(N,1) 

8 POINT TOWARD BOUNDARY ID 

901B5190 

001215 

00662 

520* 


DO 41 NC=1,NA 

8 DO EACH THIS ZONE 

901A5200 

001227 

00665 

521* 


NB=NB+1 

8 POINT TO A BOUNDARY ID 

901A5210 

001227 

00666 

522* 


ID=ZBL(NB) 

8 PICKUP THE ID 

901A5220 

001232 

00667 

523* 


CALL TSTBDT (Y,ID,SV,IT) 

8 GO CHECK THIS BOUNDARY 

901A5230 

001236 

00670 

524* 


IF (IT) 37,37,41 

e SKIP MIN IF WE TRUNCATED 

901A5240 

001244 

00673 

525* 

37 

IF (SV-SVHIN) 38,38,41 

8 FIND A NEW MIN ? 

901A5250 

001247 

00676 

526* 

38 

SVMIN=SV 

8 YES, RECORD IT 

901A5260 

001253 

00677 

527* 


IDMIN=ID 

8 

901A5270 

001255 

00700 

528* 


IF (SVMIN) 45,45,41 

8 GO INTO VIOLATION ? 

901A5280 

001257 

00703 

529* 

41 

CONTINUE 

8 NO, KEEP CHECKING 

901A5290 

001264 

00705 

530* 

42 

IF (N-IFZ) 43,45,43 

8 JUST DO EL'S FLOW ZONE ? 

901A5300 

001264 

00710 

531* 

43 

N=IFZ 

8 NO, SWITCH TO IT 

901A5310 

001266 

00711 

532* 


GO TO 29 

8 GO BACK AND DO IT 

901A5320 

001270 

00712 

533* 

45 

IRB(IRBSI,IRBPP)=IDNIN 

8 RECORD SURFACE ID 

V02-08H 

001272 

00713 

534* 


ARB ( I RBS V , I RBPP ) =S VM I N 

8 RECORD SURFACE VALUE 

V02-08H 

001275 

00714 

535* 


IRB ( IRBIS , IRBPP )=0R ( IRB( IRBIS, IRBPP ) , IRBISS+IRBISV) 8 MARK IT 

V02-08H 

001277 

00715 

536* 


RETURN 

9 

V02-08H 

001302 

00716 

537* 


SUBROUTINE RBDNP 


V02-08H 

001326 

00716 

538* 

C+ 



V02-08H 

001326 

00716 

539* 

C 

THIS SUBROUTINE DUHPS A SYMBOLIC LISTING OF THE POSITION-HISTORY 

V02-08H 

001326 

00716 

540* 

c 

RING BUFFER TO UNIT LUOUP. 


V02-08H 

001326 

00716 

541* 

c- 



V02-08H 

001326 

00721 

542* 


I=IRBPP 

8 POINT TO MOST RECENT ENTRY 

V02-08H 

001326 

00722 

543* 


IF (I> 1050,1050,1002 

8 SKIP IF NO VALID ENTRIES 

V02-08H 

001330 

00725 

544* 

1002 

IF (AND(IRB(IRBIS,I) , IRBI5A) ) 1003 

,1025,1003 e THIS ENTRY VALID ? 

V02-08H 

001333 

00730 

545* 

1003 

WRITE ( LUOUP , 1 075 , END= 1 050 , ERR= 1 050 ) IRB(IRBAI.I) 8 YES, START 

V02-08H 

001340 

00733 

546* 


WRITE (LUOUP, 1076, ENB=1050»ERR*1050) (ARB(J,I), J=IRBX1,IRBX4) 8 

V02-08H 

001357 

00741 

547* 


IF (AND(IRB(IRBIS,I> ,IRBISF) .NE.O) 

WRITE (LUOUP , 1077, END= 1 050 » ERR*V02-08H 

001375 

00741 

548* 


11050) IRB(IRBFI,I) 

8 FLOW ZONE ID 

V02-08H 

001375 

00745 

549* 


IF (AND(IRB(IRBIS,I) ,IRBISS) .NE.O) 

WRITE (LUOUP, 1078, END=1050,ERR=V02-08J 

001412 

00745 

550* 


11050) IRB(IRBSI,I) 

8 SURFACE ID 

V02-08H 

001412 

00751 

551* 


IF (AND(IRB(IRBIS,I) ,IKBISV)»NE.O) 

WRITE ( LUOUP ,1079, END= 1050 , ERR=V02-08H 

001427 

00751 

552* 


11050) ARB(IRBSV,I) 

8 SURFACE VALUE 

V02-08H 

001427 

00755 

553* 


IF (AND(IRB(IRBIS, I) , IR8I3G) .NE.O) 

WRITE (LUOUP, 1080, END=1C50, ERR 

=V02-08H 

001444 

00755 

554* 


11050) <ARB(J,I),J=IRBG1,IRBG3) 

8 GRADIENT 

V02-08H 

001444 

00764 

555* 

1025 

1=1-1 

8 NEXT OLDEST ENTRY 

V02-08H 

001467 

00765 

556* 


IF (I) 1027,1027,1028 

8 TIME TO WRAP AROUND ? 

V02-08H 

001471 

00770 

557* 

1027 

I=IRBL 

8 YES 

V02-08H 

001473 

00771 

558* 

1028 

IF (I -I RBPP) 1002,1050,1002 

8 DONE IF BACK AT START 

V02-08H 

001476 

00774 

559* 

1050 

RETURN 

8 

V02-08H 

001501 

00775 

560* 

1075 

FORMAT ( 1H0 , 6X , 1 8HAER0ELENENT ID 

= ,113) 8 


001523 

00776 

561* 

1076 

FORMAT (1H ,6X,18HP0SITIQN 

= ,1P,4(E13.7,2X) ) 8 


001523 

00777 

562* 

1077 

FORMAT (1H , 6X, 18HFL0W ZONE ID 

= ,113) 8 


001523 

01000 

563* 

1078 

FORMAT (1H ,6X,18HSURFACE ID 

= ,113) 8 


001523 

01001 

564* 

1079 

FORMAT (1H ,6X,18HSURFACE VALUE 

= ,1PE13.7) e 


001523 

01002 

565* 

1080 

FORMAT (1H ,6X,18HGRADIENT 

= ,1P,3(E13.7,2X) ) 8 


001523 

01003 

566* 


END 


901A9990 

001523 


END FOR 

> 


Listing 1 — Concluded. 


I?FQR»HS CASPER9.SURFD 
FOR 4R1 E -04/13/84-15*22*44 (50 
>8E0F 


SUBROUTINE SURF 

SURFTR 
GRAD 
SURFTI 
SURFVE 
SURF AC 


ENTRY POINT 000731 
ENTRY POINT 000747 
ENTRY POINT 000765 
ENTRY POINT 001002 
ENTRY POINT 001020 
ENTRY POINT 001035 


STORAGE USED: CODE(l) 001052 i DATA(O) 000124 i BLANK COMMON (2) 000000 
COMMON blocks: 

0003 IVSIZC 000001 


EXTERNAL REFERENCES (BLOCK, NAME) 


0004 

IBDZN 

0005 

BDZN 

0006 

IPBDZN 

0007 

SPOPI 

0010 

SPSHI 

0011 

SPSHR 

0012 

ADDR 

0013 

SPOPR 

0014 

ADR 

0015 

CALSER 

0016 

NERR2* 

0017 

NERR4* 

0020 

NERR3* 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 

000004 

1002L 

0001 


000015 

1010L 

0001 


000036 

1035L 

0001 


000101 

1101L 

0001 


000161 

1111L 

0001 

000235 

1121L 

0001 


000261 

1127L 

0001 


000271 

112BL 

0001 


000275 

1130L 

0001 


000311 

1132L 

0001 

000331 

1135L 

0001 


000335 

1140L 

0001 


000350 

1144L 

0001 


000360 

1145L 

0001 


000370 

1146L 

0001 

000412 

11 SOL 

0001 


000416 

1153L 

0001 


000427 

1160L 

0001 


000450 

1166L 

0001 


000517 

1190L 

0001 

000525 

1201L 

0001 


000573 

1218L 

0001 


000613 

1220L 

0001 


000626 

1222L 

0001 


000636 

1223L 

0001 

000042 

151G 

0001 


000141 

214G 

0001 


000463 

327G 

0001 


000620 

356G 

0001 


000651 

366G 

0005 R 

000000 BDZN 

0000 

R 000001 

GR 

0004 

I 

000000 

IBDZN 

0000 

I 

000101 

IDUM11 

0000 

I 

000103 

IDUM12 

0000 I 

000073 

INHIB 

0000 


000112 

INJPt 

0000 

I 

000070 

IP 

0006 

I 

000000 

IPBDZN 

0000 

I 

000076 

IPN 

0000 I 

000104 

IPOS 

0000 

I 

000077 

IPT 

0000 

I 

000071 

I PTH 

0000 

I 

000074 

ISW 

0000 

I 

000004 

IV 

0003 I 

000000 

IVSIZE 

0000 

I 

000100 

MDE 

0000 

I 

000075 

NRTN 

0000 

I 

000102 

NV 

0000 R 

000072 

RIDCM 

0000 R 000000 

SV 

0000 

I 

000067 

THMDE 

0000 

I 

000066 

TRCNT 










00101 

1* 


SUBROUTINE SURF (XL,IDi 

>SF,i) 


91880010 

000000 

00101 

2* 

C 





91800020 

000000 

00101 

3* 

C 





91800030 

000000 

00101 

4* 

C 

SURF 

****** A SUBROUTINE FOR CASPER ****** 

91800040 

000000 

00101 

5* 

C 


AUTHOR 

WILLIAM HENRY JONES 

91800050 

000000 

00101 

6* 

c 


V03-00 

19 APR 78 


91800060 

000000 

00101 

7* 

c 


V03-01 

15 JUN 78 


91810061 

000000 

00101 

8* 

c 


V03-02 

16 JUN 78 


91820062 

000000 

00101 

9* 

c 


V03-03 

22 JUN 78 


91830063 

000000 

00101 

10* 

c 


V03-04 

26 JUN 78 


91840064 

000000 

00101 

11* 

c 


V03-05 

28 JUN 78 


91850065 

000000 

00101 

12* 

c 


V03-06 

29 JUN 78 


91860066 

000000 

00101 

13* 

c 


V03-07 

19 JUL 78 


91870067 

000000 

00101 

14* 

c 


V03-08 

30 AUG 78 


91880068 

000000 

00101 

15* 

c 


V03-08A 

27 OCT 80 

NEW STACK ENTRY POINTS 


000000 

00101 

16* 

c 


V03-08B 

23 FEB 81 

APPLY DC TO CALC QTY ONLY 


000000 

00101 

17* 

c 


V03-08C 

28 SEP 81 

ADD SURFACE VELOCITIES 

V03-08C 

000000 

00101 

18* 

c 


V03-08D 

23 APR 82 

TRUNCATIONS OF TRUNCATIONS V03-08D 

000000 


Listing 8. — Subroutine SURF. 



00101 

19* 

C 


V03-08E 05 AUG 83 ADD SURFACE ACCELERATIONS 

V03-08E 

000000 

00101 

20* 

C 



91800070 

000000 

00101 

21* 

C 



91800080 

000000 

00101 

22* 

c 



91800090 

000000 

00101 

23* 

c 

ARGUMENTS PASSED IN SUBROUTINE CALL ****** 

91880094 

000000 

00101 

24* 

c 



91880096 

000000 

00101 

25* 

c 

ARGUMENT 

TYPE DIMENSION DESCRIPTION 

91800100 

000000 

00101 

26* 

c 




91800110 

000000 

00101 

27* 

c 

XL 

REAL 1 TO 4 3 POSITION COORDS AND TIME 

91800120 

000000 

00101 

28* 

c 



91800130 

000000 

00101 

29* 

c 

ID 

INTEGER SCALAR BOUNDARY OR FLOW ZONE 

91800140 

000000 

00101 

30* 

c 


IDENTIFICATION NUMBER 

91800150 

000000 

00101 

31* 

c 



91800260 

000000 

00101 

32* 

c 

SF 

REAL SCALAR CALCULATED SURFACE VALUE 

91800270 

000000 

00101 

33* 

c 



91800280 

000000 

00101 

34* 

c 

$4 

N/A RETURN LINK TAKEN IF TRUNCATION 0CCURED91 880290 

000000 

00101 

35* 

c 



91800300 

000000 

00101 

36* 

c 

GF 

REAL 1 TO 3 GRADIENT* REPLACES SF IN 

91800310 

000000 

00101 

37* 

c 


SECOND ENTRY POINT 

91800320 

000000 

00101 

38* 

c 



91880330 

000000 

00101 

39* 

c 

ARGUMENTS IN CASPER 'CACHE' MEMORY ****** 

91880332 

000000 

00101 

40* 

c 



91880334 

000000 

00101 

41* 

c 

ARGUMENT 

TYPE DIMENSION DESCRIPTION 

91880336 

000000 

00101 

42* 

r 



91880338 






00101 

43* 

c 

BDZN 

REAL 1 TO BDZNSZ SURFACE EVALUATION ROUTINE 

91880340 

000000 

00101 

44* 

c 


PARAMETERS LIST 

91880342 

000000 

00101 

45* 

c 



91880344 

000000 

00101 

46* 

c 

IBDZN 

INTEGER 1 TO BDZNSZ SURFACE EVALUATION ROUTINE 91880346 

000000 

00101 

47* 

c 


PARAMETERS (CONTROL) LIST 

91880348 

000000 

00101 

48* 

c 



91880350 

000000 

00101 

49* 

c 

IPBDZN 

INTEGER 1 TO NBDZN BDZN CONTROL POINTERS LIST 

91880352 

000000 

00101 

30* 

c 


(ID) = SDH POINTER 

91880354 

000000 

00101 

51* 

c 



91880356 

000000 

00101 

52* 

c 



91880358 

000000 

00101 

53* 

c 



91880360 

000000 

00101 

54* 

c 

DESCRIPTION 

****** 

91880362 

000000 

00101 

55* 

c 



91800370 

000000 

00101 

56* 

c 

SURF HANDLES THE EVALUATION OF ALL BOUNDARIES AND TRUNCATION 

91800380 

000000 

00101 

57* 

c 

SURFACES. : 

[T PROVIDES ALL NECESSARY LOGIC TO HANDLE TRUNCATION 

91800390 

000000 

00101 

58* 

c 

SURFACES* FIND SURFACE EVALUATION ROUTINE PARAMETER LISTS* 

91800400 

000000 

00101 

59* 

c 

AND VECTOR CONTROL TO PROPER SURFACE EVALUATION ROUTINES. 

91800410 

000000 

00101 

60* 

c 



91800420 

000000 

00101 

61* 

c 

****** BDZN 

DATA BASE ****** 

91800430 

000000 

00101 

62* 

c 



91800440 

000000 

00101 

63* 

c 

SURFACE DEFINITION HEADER ****** 

91800450 

000000 

00101 

64* 

c 



91800460 

000000 

00101 

65* 

c 

EACH BOUNDARY AND FLOW ZONE IN CASPER IS DEFINED BY MEANS OF A 

91800470 

000000 

00101 

66* 

c 

SERIES OF NUMBERS IN THE CONTROL LIST 'BDZN'. A POINTER 

91800480 

oooooo 

00101 

67* 

c 

TO THESE NUMBERS CAN BE OBTAINED FROM 'IPBDZN(N)' WHERE 'N' IS 

91800490 

000000 

00101 

68* 

c 

THE ID NUMBER OF THE DESIRED BOUNDARY OR FLOU ZONE. WHAT IS 

91800500 

oooooo 

00101 

69* 

c 

OBTAINED IS 

A POINTER TO A SURFACE DEFINITION HEADER* 'SDH'. 

91800510 

oooooo 

00101 

70* 

c 

THE POINTER 

IS REFERRED TO AS 'IP'. THE HEADER APPEARS AS 

91800520 

oooooo 

00101 

71* 

c 

FOLLOWS. 


91800530 

oooooo 

00101 

72* 

c 



91800540 

oooooo 

00101 

73* 

c 

IP-5 

SURFACE TYPE NUMBER 

91800550 

oooooo 

00101 

74* 

c 

IP-4 

SURFACE PARAMETER LOCATION CONTROL (SPLC) 

91800560 

oooooo 

00101 

75* 

c 

IP-3 

TRUNCATION HEADER LOCATION CONTROL (THLC) 

91800570 

oooooo 

00101 

76* 

c 

IP-2 

DEFEND/CONTAIN SURFACE VALUE 

91800580 

oooooo 

00101 

77* 

c 

IP-1 

NUMBER OF TRUNCATION HEADERS 

91800590 

oooooo 

00101 

78* 

c 

IP 

NUMBER OF PARAMETERS FOLLOWING THIS HEADER 

91800600 

oooooo 

00101 

79* 

c 



91800610 

oooooo 

00101 

80* 

c 



91800620 

oooooo 

00101 

81* 

c 

SURFACE PARAMETER LOCATION CONTROL <SPLC) ****** 

91800630 

oooooo 

00101 

82* 

c 



91800640 

oooooo 

00101 

83* 

c 

THIS NUMBER 

PROVIDES THE METHOD FOR CALCULATING THE POINTER(S) 

91800650 

oooooo 

00101 

84* 

c 

TO THE ACTUAL NUMBERS WHICH ARE USED FOR CALCULATING THE SURFACE 

91800660 

oooooo 

00101 

85* 

c 

VALUE. THE 

METHODS ARE AS FOLLOWS. 

91800670 

oooooo 

00101 

86* 

c 



91800680 

oooooo 

00101 

87* 

c 

MODE 

METHOD 

91800690 

oooooo 

00101 

88* 

c 



91800700 

oooooo 

00101 

89* 

c 

1 

IV = IP+1 

91800710 

oooooo 

00101 

90* 

c 

2 

IV = IBDZN(IPM) 

91800720 

oooooo 
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00101 

91* 

C 

3 

IV = IBDZN(IBDZN( IP+1) ) 

91800730 

000000 

00101 

92* 

C 

4 

IV b IP+IBDZNUP+l) 

91800740 

000000 

00101 

93* 

C 

5 

IV * I BDZN < IP+IBDZN( IP+1 ) ) 

91800750 

000000 

00101 

94* 

C 

6 

IV = IBDZN(IBDZN(IP+l)+IBDZN(IP+2>) 

91800760 

000000 

00101 

95* 

C 

7 

IV = I BDZN ( I BDZN ( IP+ 1 ) + I BDZN ( IBDZN ( I P+2 ) + I BDZN ( I P+3 ) ) ) 9 1 800770 

000000 

00101 

96* 

C 

8 

IV = IBDZN ( IBDZN ( IP+1 )+IBDZN( IBDZN (IP+2)+IBDZN( 2+ 

91800780 

000000 

00101 

97* 

C 


IOFSET) )) 

91800790 

000000 

00101 

98* 

c 

9 

IV = IBDZN( IBDZN( IP+1 )+IBDZN( IBDZN(IP+2)+IBDZN( IBDZN 

91800800 

000000 

00101 

99* 

c 


(IP+3)+IBDZN(3+I0FSET) ) ) ) 

91800810 

000000 

00101 

100* 

c 

10 

MULTIPLE MODES - FORMAT AS FOLLOWS 

91800820 

000000 

00101 

101* 

c 



91800830 

000000 

00101 

102* 

c 


IP -> TOTAL NUMBER OF PARAMETERS FOLLOWING THIS 

91800840 

000000 

00101 

103* 

c 


SURFACE DEFINITION HEADER 

91800850 

000000 

00101 

104* 

c 


NUMBER OF ADDRESSING MODES TO BE EVALUATED91800860 

000000 

00101 

105* 

c 


FIRST SPLC 

91800870 

000000 

00101 

106* 

c 


(IPE 1 -» NUMBER OF PARAMETERS FOLLOWING THIS ENTRY 

91800880 

000000 

00101 

107* 

c 


PARAMETER 

91800890 

000000 

00101 

108* 

c 


PARAMETER 

91800900 

000000 

00101 

109* 

c 


PARAMETER 

91800910 

000000 

00101 

110* 

c 


... 

91800920 

oooooo 

00101 

111* 

c 


SECOND SPLC 

91800930 

000000 

00101 

112* 

c 


(IPE 2 -» NUMBER OF PARAMETERS FOLLOWING THIS ENTRY 

91800940 

oooooo 

00101 

113* 

c 


PARAMETER 

91800950 

oooooo 

00101 

114* 

c 


PARAMETER 

91800960 

oooooo 

00101 

115* 

c 


PARAMETER 

91800970 

oooooo 

00101 

116* 

c 


... 

91800980 

oooooo 

00101 

117* 

c 


... 

91800990 

oooooo 

00101 

118* 

c 


N TH SPLC 

91801000 

oooooo 

00101 

119* 

c 


(IPE N -» NUMBER OF PARAMETERS FOLLOWING THIS ENTRY 

91801010 

oooooo 

00101 

120* 

c 


PARAMETER 

91801020 

oooooo 

00101 

121* 

c 


PARAMETER 

91801030 

oooooo 

00101 

122* 

c 


PARAMETER 

91801040 

oooooo 

00101 

123* 

c 


.... 

91801050 

oooooo 

00101 

124* 

c 



91801060 

oooooo 

00101 

125* 

c 

NOTE THAT 

THE POINTERS GENERATED POINT TO THE ACTUAL LOCATION 

91801070 

oooooo 

00101 

126* 

c 

IN BDZN OF 

THE FIRST PARAMETER OF ANY LIST (OR SET OF LISTS)* NOT 

91801080 

oooooo 

00101 

127* 

c 

THE LOCATION BEFORE IT AS IN PREVIOUS INCARNATIONS. THUS* THE 

91801090 

oooooo 

00101 

128* 

c 

FIRST PARAMETER IS *0, NOT *1 . 

91801100 

oooooo 

00101 

129* 

c 



91801110 

oooooo 

00101 

130* 

c 

SINCE ALL 

SURFACE EVALUATION ROUTINES MAY DIVIDE THE COMPLETE 

91801120 

oooooo 

00101 

131* 

c 

PARAMETER 

SET INTO DIFFERENT LISTS IN DIFFERENT WAYS* THE 

91801130 

oooooo 

00101 

132* 

c 

RESPONSIBILITY FOR CORRECTING POINTERS LIES UITH THESE ROUTINES. 

91801140 

oooooo 

00101 

133* 

c 

AFTER ONE 

OF THESE ROUTINES IS CALLED IT MUST BE ASSUMED THAT 

91801150 

oooooo 

00101 

134* 

c 

THE SUPPLIED POINTERS HAVE BEEN SO ALTERED. 

91801160 

oooooo 

00101 

135* 

c 



91801170 

oooooo 

00101 

136* 

c 

WHEN FEWER 

INDEPENDENT ADDRESSING POINTERS THAN PARAMETER LISTS 

91801180 

oooooo 

00101 

137* 

c 

TO BE LOCATED ARE SUPPLIED THE UN-LOCATED LISTS ARE ASSUMED 

91801190 

oooooo 

00101 

138* 

c 

TO FOLLOW 

THE LAST LOCATED LIST CONTIGUOUSLY IN BDZN AND THE 

91801200 

oooooo 

00101 

139* 

c 

ASSOCIATED 

DEPENDENT POINTERS ARE CORRECTED ACCORDINGLY. 

91801210 

oooooo 

00101 

140* 

c 



91801220 

oooooo 

00101 

141* 

c 



91801230 

oooooo 

00101 

142* 

c 

TRUNCATION HEADER LOCATION CONTROL (THLC) ****** 

91801240 

oooooo 

00101 

143* 

c 



91801250 

oooooo 

00101 

144* 

c 

THIS PARAMETER SPECIFIES THE METHOD OF LOCATING THE APPROPRIATE 

91801260 

oooooo 

00101 

145* 

c 

TRUNCATION HEADERS. A TRUNCATION POINTER* 'IPT'* SIMILAR TO THE 

91801270 

oooooo 

00101 

146* 

c 

SURFACE PARAMETER POINTER* 'IPS IS DEFINED AS 

91801280 

oooooo 

00101 

147* 

c 



91801290 

oooooo 

00101 

148* 

c 

IPT = IP + 

1 + IBDZN(IP) . 

91801300 

oooooo 

00101 

149* 

c 



91801310 

oooooo 

00101 

150* 

c 

IT CAN BE 

SEEN THAT IBDZN(IP) CONTAINS THE NUMBER OF PARAMETERS 

91801320 

oooooo 

00101 

151* 

c 

FOLLOWING 

THE SURFACE DEFINITION HEADER THAT ARE ASSOCIATED WITH 

91801330 

oooooo 

00101 

152* 

c 

THE DESCRIPTION OF THE SURFACE - NOT WITH ITS TRUNCATION. 

91801340 

oooooo 

00101 

153* 

c 



91801350 

oooooo 

00101 

154* 

c 

THE ADDRESSING MODES USED TO LOCATE TRUNCATION HEADERS ARE 

91801360 

oooooo 

00101 

155* 

c 

IDENTICAL 

TO THOSE USED FOR SURFACE PARAMETER LOCATION 

91801370 

oooooo 

00101 

156* 

c 

EXCEPT THAT ABSOLUTE LOCATIONS 2 AND 3 ARE REPLACED BY 

91801380 

oooooo 

00101 

157* 

c 

ABSOLUTE LOCATIONS 4 AMD 5* RESPECTIVELY. 

91801390 

oooooo 

00101 

158* 

c 



91801400 

oooooo 

00101 

159* 

c 

IBBZN(IPT) 

CONTAINS THE NUMBER OF PARAMETERS FOLLOWING THE 'IPT' 

91801410 

oooooo 

00101 

160* 

c 

LOCATION THAT ARE ASSOCIATED WITH THE SURFACE DEFINITION 

91801420 

oooooo 

00101 

161* 

c 

TRUNCATION 

. ASSUMING THAT TWO COMPLETE SURFACE DEFINITION 

91801430 

oooooo 

00101 

162* 

c 

HEADERS OCCUPY CONTIGUOUS AREAS IN BDZN/IBDZN* THE POINTER TO 

91801440 

oooooo 
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I 


00101 

163* 

C 

00101 

164* 

C 

00101 

165* 

C 

00101 

166* 

C 

00101 

167 * 

C 

00101 

168* 

C 

00101 

169* 

C 

00101 

170* 

C 

00101 

171* 

c 

00101 

172* 

c 

00101 

173* 

c 

00101 

174* 

c 

00101 

175* 

c 

00101 

176* 

c 

00101 

177* 

c 

00101 

178* 

c 

00101 

179* 

c 

00101 

180* 

c 

00101 

181* 

c 

00101 

182* 

c 

00101 

183* 

c 

00101 

184* 

c 

00101 

185* 

c 

00101 

186* 

c 

00101 

187* 

c 

00101 

188* 

c 

00101 

189* 

c 

00101 

190* 

c 

00101 

191* 

c 

00101 

192* 

c 

00101 

193* 

c 

00101 

194* 

c 

00101 

195* 

c 

00101 

196* 

c 

00101 

197* 

c 

00101 

198* 

c 

00101 

199* 

c 

00101 

200* 

c 

00101 

201* 

c 

00101 

202* 

c 

00101 

203* 

c 

00101 

204* 

c 

00101 

205* 

c 

00101 

206* 

c 

00101 

207* 

c 

00101 

208* 

c 

00101 

209* 

c 

00101 

210* 

c 

00101 

211* 

c 

00101 

212* 

c 

00101 

213* 

c 

00101 

214* 

c 

00101 

215* 

c 

00101 

216* 

c 

00101 

217* 

c 

00101 

218* 

c 

00101 

219* 

c 

00101 

220* 

c 

00101 

221* 

c 

00101 

222* 

c 

00101 

223* 

c 

00101 

224* 

c 

00101 

225* 

c 

00101 

226* 

c 

00101 

227* 

c 

00101 

228* 

c 

00101 

229* 

c 

00101 

230* 

c 

00101 

231* 

c 

00101 

232* 

c 

00101 

233* 

c 

00101 

234* 

c 


THE SECOND f 'IP2S CAN BE FOUND AS FOLLOWS BASED ON THE POINTER 91801450 
TO THE FIRST t 'IP1'. 91801460 

91801470 

IPT1 = IP1 + 1 + IBDZN(IPl) 91801480 

IP2 = IPT1 + 6 4 IBBZNUPT1) 91801490 

V03-08D 

V03-08D 

TRUNCATION RECURSION ****** V03-08D 

V03-08D 

THE TRUNCATION PROCESS IS RECURSIVE* IF A TRUNCATION IS, ITSELFr V03-08D 
TRUNCATED, IT NO LONGER HAS ANY EFFECT UPON ITS PARENT SURFACE* V03-06D 
IF THE PARENT SURFACE IS A TRUNCATION SURFACE > IT MUST STILL BE V03-08D 
EVALUATED AND MAY TRUNCATE ITS PARENT. V03-08D 

V03-08D 

USING THIS MECHANISM, TRUNCATION SURFACES MAY BE BUILT BY THE V03-08D 
CONCATENATION OF INDIVIDUAL SURFACES* V03-08D 

91801500 

91801510 

91801520 

TRUNCATION HEADER ****** 91801530 


TRUNCATION HEADERS PROVIDE THE INFORMATION NECESSARY TO LOCATE 
AND MODIFY (AS APPROPRIATE) THE SURFACE DEFINITION HEADER FOR AN 
INDIVIDUAL TRUNCATION SURFACE. ONE TRUNCATION HEADER MUST BE 
SUPPLIED FOR EACH TRUNCATION LISTED BY THE PARENT SURFACE 
DEFINITION HEADER. IF THE SUPPLIED ADDRESSING INFORMATION 
DOES NOT GIVE ENOUGH INDEPENDENT POINTERS TO TRUNCATION HEADERS 
THE AVAILABLE N POINTERS ARE ASSUMED TO POINT TO THE FIRST 
N TRUNCATION HEADERS AND THE REMAINING TRUNCATION HEADERS 
ARE ASSUMED TO FOLLOW CONSECUTIVELY AFTER THE N TH HEADER* 

MODIFICATION OF THE TRUNCATION SURFACE'S SURFACE DEFINITION 
HEADER CONSISTS SOLELY OF AN ADDITIONAL DEFEND/CONTAIN 
MODIFIER TO FLOP POSITIVE AND NEGATIVE SIDES OF THE SURFACE 
USED. THUS* ANY DEFINED SURFACE CAN BE REUSED ANY NUMBER 
OF TIMES TO TRUNCATE OTHER SURFACES. 

A POINTER* 'IPTH'* TO THE FIRST WORD OF THE TRUNCATION HEADER 
IS ASSUMED* THE TRUNCATION HEADER FORMAT IS AS FOLLOWS 

POSITION REMARKS 


IPTH MODE NUMBER 

IPTHF1 DEFEND/CONTAIN MODIFIER 

IPTH+2 ADDITIONAL PARAMETER(S) 

THREE MODES ARE DEFINED 

MODE SDH LOCATION 


1 IP = IPTH + 8 — COMPLETE SURFACE DEFINITION HEADER 

WITH ALL APPROPRIATE PARAMETERS AND TRUNCATION 
INFORMATION FOLLOWS IMMEDIATELY* 

2 IP * IPBDZN(lBBZN(IPTH+2) ) — THE IDENTIFICATION 

NUMBER OF THE SURFACE IS IN IPTH+2. THIS IS 
A SURFACE EXTERNALLY DEFINED IN THE BOUNDARY 
AND FLOW ZONE POINTERS LIST* 'IPBDZN'. 

3 IP = IBBZN(IBDZN(1)+IBDZN< IPTH+2) ) — THE 

IDENTIFICATION NUMBER OF THE SURFACE IS IN 
IPTH+2. THIS IS A SURFACE INTERNALLY DEFINED 
IN BDZN/IBDZN. A TABLE OF POINTERS TO THE 
SURFACE DEFINITION HEADERS FOR THESE SURFACES 
IS POINTED TO BY IBDZN(l). EXCEPT FOR THE 
INTERNAL/EXTERNAL DEFINITION DIFFERENCE* ALL 
OTHER FEATURES OF THE EXTERNALLY DEFINED SURFACE 
ARE AVAILABLE TO THE INTERNALLY DEFINED SURFACE. 

NOTE — IF THE MODE NUMBER IS NEGATIVE SUB TRUNCATIONS OF THE 
CITED TRUNCATION SURFACE ARE INHIBITED* 


91801540 

91801550 

91801560 

91801570 

91801580 

91801590 

91801600 

91801610 

91801620 

91801630 

91801640 

91801650 

91801660 

91801670 

91801680 

91801690 

91801700 

91801710 

91801720 

91801730 

91801740 

91801750 

91801760 

91801770 

91801780 

91801790 

91801800 

91801810 

91801820 

91801830 

91801840 

91801850 

91801860 

91801870 

91801880 

91801890 

91801900 

91801910 

91801920 

91801930 

91801940 

91801950 

91801960 

91801970 

91801980 

91801990 

91802000 

91802010 

91802020 

91832022 

91832023 

91802030 
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000000 
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000000 
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000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 
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000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 
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00101 

235* 

C 




91802040 

000000 

00101 

236* 

c 

BBZN/IBBZN RESERVED 

SPACE ****** 

91802050 

000000 

00101 

237* 

c 




91802060 

000000 

00101 

238* 

c 

AS INFERRED PREVIOUSLY A NUMBER OF WORDS IN BDZN ARE RESERVED 

91802070 

000000 

00101 

239* 

c 

FOR USE 

BY THE ADDRESSING MODE INTERPRETER. THEY ARE AS 

91802080 

000000 

00101 

240* 

c 

FOLLOWS 

— 


91802090 

000000 

00101 

241* 

c 




91802100 

000000 

00101 

242* 

c 

WORD 

USE 


91802110 

000000 

00101 

243* 

c 


— 


91802120 

000000 

00101 

244* 

c 

1 

POINTER 

TO BASE OF INTERNALLY IDENTIFIED SURFACE 

91802130 

000000 

00101 

245* 

c 


SDH POINTERS TABLE. 

91802140 

000000 

00101 

246* 

c 

2 

POINTER 

TO THE TABLE OF BOUNDARY AND FLOW ZONE 

91802150 

000000 

00101 

247* 

c 


SURFACE 

TABLES. 

91802160 

000000 

00101 

248* 

c 

3 

BELIEVE 

IT OR NOT, THIS IS A POINTER TO A TABLE 

91802170 

000000 

00101 

249* 

c 


TABLE TABLE. THIS PROVIDES A CROSS INDEXING 

91802180 

000000 

00101 

250* 

c 


FEATURE 

BETWEEN TYPES OF SURFACE. FOR INSTANCE, 

91802190 

000000 

00101 

251* 

c 


A SETUP 

USING THIS FEATURE COULD SWITCH A PROBLEM 

91802200 

000000 

00101 

252* 

c 


BETWEEN STATIC AND DYNAMIC BOUNDARIES OF IDENTICAL 

91882210 

000000 

00101 

253* 

c 


TYPES BY SIMPLY REWRITING THE TABLE TABLE TABLE. 

91802220 

000000 

00101 

254* 

c 


OF COURSE, YOU WOULD GO CRAZY.... 

91802230 

000000 

00101 

255* 

c 

4 AND 5 

AS 2 AND 

3, RESPECTIVELY, BUT USED WHEN SEEKING 

91802240 

000000 

00101 

256* 

c 


TRUNCATION HEADERS. 

91802250 

000000 

00101 

257* 

c 




91802260 

000000 

00101 

258* 

c 




91802270 

000000 

00101 

259* 

c 




91802280 

000000 

00101 

260* 

c 

EXAMPLE 

****** 


91802290 

000000 

00101 

261* 

c 




91802300 

000000 

00101 

262* 

c 

THE FOLLOWING EXAMPLE SHOWS HOW THE FOREGOING CONVENTIONS MAY 

91802310 

000000 

00101 

263* 

c 

BE APPLED TO EFFECTIVELY DESCRIBE THE ROTATING BLADES OF A 

91802320 

000000 

00101 

264* 

c 

TURBOJET FAN MODULE. 

IT IS ASSUMED THAT ALL THESE BLADES CAN 

91802330 

000000 

00101 

265* 

c 

BE DESCRIBED BY A SINGLE SURFACE EVALUATION ROUTINE. THIS 

91802340 

000000 

00101 

266* 

c 

EXAMPLE 

ALSO ASSUMES 

THAT OTHER ELEMENTS OF SUCH A FAN MODULE 

91802350 

000000 

00101 

267* 

c 

ARE ALSO BEING DESCRIBED AT THAT SAME TIME. 

91802360 

000000 

00101 

268* 

c 




91802370 

000000 

00101 

269* 

c 

SURFACE 

EVALUATION ROUTINE ****** 

91802380 

000000 

00101 

270* 

c 




91802390 

000000 

00101 

271* 

c 

THE GENERALIZED ROUTINE WHICH SPECIFIES THE BLADES IS ASSUMED 

91802400 

000000 

00101 

272* 

c 

TO REQUIRE A PARAMETER LIST AS FOLLOWS — 

91802410 

000000 

00101 

273* 

c 




91802420 

000000 

00101 

274* 

c 

REF LOC 

SEG NO 

REMARKS 

91802430 

000000 

00101 

275* 

c 


— 


91802440 

000000 

00101 

276* 

c 

0 

1 

THESE 13 PARAMETERS SPECIFY A COORDINATE 

91802450 

000000 

00101 

277* 

c 

1 

1 

TRANSFORMATION AS A FUNCTION OF TIME. 

91802460 

000000 

00101 

278* 

c 

2 

1 

THEY ARE USED TO DETERMINE DISK/BLACE 

91802470 

000000 

00101 

279* 

c 

3 

1 

LOCATION AT ANY TIME. 

91802480 

000000 

00101 

280* 

c 

4 

1 


91802490 

000000 

00101 

281* 

c 

5 

1 


91802500 

000000 

00101 

282* 

c 

6 

1 


91802510 

000000 

00101 

283* 

c 

7 

1 


91802520 

000000 

00101 

284* 

c 

8 

1 


91802530 

000000 

00101 

285* 

c 

9 

1 


91802540 

000000 

00101 

286* 

c 

10 

1 


91802550 

000000 

00101 

287* 

c 

11 

1 


91802560 

000000 

00101 

288* 

c 

12 

1 


91802570 

oooooo 

00101 

289* 

c 

13 

2 

ENGINE 'SPEED' PARAMETER 

91802580 

000000 

00101 

290* 

c 

14 

3 

THESE 12 PARAMETERS SPECIFY A COORDINATE 

91802590 

oooooo 

00101 

291* 

c 

15 

3 

TRANSFORMATION TO LOCATE THE BLADE 

91802600 

oooooo 

00101 

292* 

c 

16 

3 

ON THE DISK GIVEN THE RADIUS OF THE 

91802610 

oooooo 

00101 

293* 

c 

17 

3 

DISK AND THE BLADE NUMBER 

91802620 

oooooo 

00101 

294* 

c 

18 

3 


91802630 

oooooo 

00101 

295* 

c 

19 

3 


91802640 

oooooo 

00101 

296* 

c 

20 

3 


91802650 

oooooo 

00101 

297* 

c 

21 

3 


91802660 

oooooo 

00101 

298* 

c 

22 

3 


91802670 

oooooo 

00101 

299* 

c 

23 

3 


91802680 

oooooo 

00101 

300* 

c 

24 

3 


91802690 

oooooo 

00101 

301* 

c 

25 

3 


91802700 

oooooo 

00101 

302* 

c 

26 

4 

RADIUS OF DISK 

91802710 

oooooo 

00101 

303* 

c 

27 

5 

BLADE NUMBER ON DISK 

91802720 

oooooo 

00101 

304* 

c 

28 

6 

THE PARAMETERS OF GROUP 6 SPECIFY A 

91802730 

oooooo 

00101 

305* 

c 

29 

6 

BASIC AIRFOIL CHORDWISE THICKNESS 

91802740 

oooooo 

00101 

306* 

c 

30 

6 

DISTRIBUTION 

91802750 

oooooo 


Listing 8. — Continued. 


00101 

307$ 

C 

31 

6 


91802760 

000000 

00101 

308$ 

C 

32 

6 


91802770 

000000 

00101 

309$ 

C 

33 

6 


91802780 

000000 

00101 

310$ 

C 

34 

6 


91802790 

000000 

00101 

311$ 

C 

35 

6 


91802800 

000000 

00101 

312$ 

C 

36 

6 


91802810 

000000 

00101 

313$ 

C 

37 

6 


91802820 

000000 

00101 

314$ 

C 

38 

6 


91802830 

000000 

00101 

315$ 

C 

39 

7 

THE PARAMETERS OF GROUP 7 SPECIFY A 

91802840 

000000 

00101 

316$ 

C 

40 

7 

RADIAL MODIFICATION OF CHORDWISE 

91802850 

000000 

00101 

317$ 

C 

41 

7 

THICKNESS DISTRIBUTION 

91802860 

000000 

00101 

318$ 

C 

42 

7 


91802870 

000000 

00101 

319$ 

C 

43 

7 


91802880 

000000 

00101 

320$ 

C 

44 

7 


91802890 

000000 

00101 

321$ 

C 

45 

7 


91802900 

000000 

00101 

322$ 

C 

46 

7 


91802910 

000000 

00101 

323$ 

c 

47 

8 

THE PARAMETERS OF GROUP 8 SPECIFY A 

91802920 

000000 

00101 

324$ 

c 

48 

8 

RADIAL DISTRIBUTION OF THICKNESS 

91802930 

000000 

00101 

325$ 

c 

49 

8 


91802940 

000000 

00101 

326$ 

c 

50 

8 


91802950 

000000 

00101 

327$ 

c 

51 

8 


91802960 

000000 

00101 

328$ 

c 

52 

8 


91802970 

000000 

00101 

329$ 

c 

53 

9 

THE PARAMETERS OF GROUP 9 SPECIFY A 

91802980 

000000 

00101 

330$ 

c 

54 

9 

CAMBER FOR THE BLADE 

91802990 

000000 

00101 

331$ 

c 

55 

9 


91803000 

000000 

00101 

332$ 

c 

56 

9 


91803010 

000000 

00101 

333$ 

c 

57 

9 


91803020 

000000 

00101 

334$ 

c 

58 

9 


91803030 

000000 

00101 

335$ 

c 

59 

10 

THE PARAMETERS OF GROUP 10 SPECIFY 

91803040 

000000 

00101 

336$ 

c 

60 

10 

THE RADIAL STACKING OF THE BLADE 

91803050 

000000 

00101 

337$ 

c 

61 

10 


91803060 

000000 

00101 

338$ 

c 

62 

10 


91803070 

000000 

00101 

339$ 

c 

63 

10 


91803080 

000000 

00101 

340$ 

c 

64 

10 


91803090 

000000 

00101 

341$ 

c 

65 

10 


91803100 

000000 

00101 

342$ 

c 

66 

10 


91803110 

000000 

00101 

343$ 

c 

67 

10 


91803120 

000000 

00101 

344$ 

c 

68 

10 


91803130 

000000 

00101 

345$ 

c 

69 

10 


91803140 

000000 

00101 

346$ 

c 

70 

10 


91803150 

000000 

00101 

347$ 

c 




91803160 

000000 

00101 

348$ 

c 

BDZN/IBDZN LIST $$$$$$ 


91803170 

000000 

00101 

349$ 

c 




91803180 

000000 

00101 

350$ 

c 

LOCATION 

VALUE 

REMARKS 

91803190 

000000 

00101 

351$ 

c 




91803200 

000000 

00101 

352$ 

c 

1 



91803210 

000000 

00101 

353$ 

c 

2 

TT 

POINTER TO TABLE TABLE 

91803220 

000000 

00101 

354$ 

c 

3 



91803230 

000000 

00101 

355$ 

c 

4 



91803240 

000000 

00101 

356$ 

c 

5 



91803250 

000000 

00101 

357$ 

c 




91803260 

000000 

00101 

358$ 

c 

TT 

TO 

ROTOR ORIENTATIONS TABLE POINTER 

91803270 

000000 

00101 

359$ 

c 

mi 

Ti 

ROTOR SPEEDS TABLE POINTER 

91803280 

000000 

00101 

360$ 

c 

TT+2 

T2 

BLADE ORIENTATIONS TABLE POINTER 

91803290 

000000 

00101 

361$ 

c 

TT+3 

T3 

BLADE NUMBER TABLE POINTER 

91803300 

000000 

00101 

362$ 

c 

TTF4 

T4 

BLADE MECHANICAL DESCRIPTION TABLE POINTER91803310 

000000 

00101 

363$ 

c 

TT+5 

T5 

OTHER TABLE POINTERS 

91803320 

000000 

00101 

364$ 

c 

TT+6 

T6 

• 

91803330 

000000 

00101 

365$ 

c 

TT+7 

T7 

« 

91803340 

000000 

00101 

366$ 

c 

» » . 



91803350 

000000 

00101 

367$ 

c 

TO 

LQWOR 

POINTER TO LOU ROTOR ORIENTATION 

91803360 

000000 

00101 

368$ 

c 

TOM 

HIGHOR 

POINTER TO HIGH ROTOR ORIENTATION 

91803370 

000000 

00101 

369$ 

c 

• • • 



91803380 

000000 

00101 

370$ 

c 

T1 

N1 

POINTER TO LOU ROTOR SPEED 

91803390 

000000 

00101 

371$ 

c 

TIM 

N2 

POINTER TO HIGH ROTOR SPEED 

91803400 

000000 

00101 

372$ 

c 

♦ 44 



91803410 

000000 

00101 

373$ 

c 

T2 

BD11 

POINTER TO OR I ENTER OF BLADES - FAN DISK 

191803420 

000000 

00101 

374$ 

c 

T2M 

BD21 

FAN DISK 2 

91803430 

000000 

00101 

375$ 

c 

T2+2 

BD31 

FAN DISK 3 

91803440 

000000 

00101 

376$ 

c 

T2+3 

BD12 

CORE DISK 1 

91803450 

000000 

00101 

377$ 

c 

T2+4 

BD22 

CORE DISK 2 

91803460 

000000 

00101 

378$ 

c 

T2+5 

BD32 

CORE DISK 3 

91803470 

000000 
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00101 

379* 

C 

T2+6 

BD42 

CORE DISK 4 

91803480 

000000 

00101 

380* 

C 

T2+7 

BD52 

CORE DISK 5 

91803490 

000000 

00101 

381* 

C 

T2+8 

BB62 

CORE DISK 6 

91B03500 

000000 

00101 

382* 

c 

4 » 4 



91803510 

000000 

00101 

383* 

c 

T3 

B1 

POINTERS TO BLADE NUMBERS (LARGEST 

91803520 

000000 

00101 

384* 

c 

T3+1 

B2 

NUMBER OF BLADES ON ANY DISK THIS 

91803530 

000000 

00101 

385* 

c 

T3+2 

B3 

EXAMPLE IS 120). 

91803540 

000000 

00101 

386* 

c 

T3+3 

B4 


91803550 

000000 

00101 

387* 

c 

T3+4 

B5 


91803560 

000000 

00101 

388* 

c 

» .♦ 

♦ ♦ ♦ 


91803570 

000000 

00101 

389* 

c 

T3+119 

B120 


91803580 

000000 

00101 

390* 

c 

» . . 



91803590 

000000 

00101 

391* 

c 

T4 

FBI 

POINTERS TO FAN BLADE (FB) AND CORE 

91803600 

000000 

00101 

392* 

c 

T4+1 

FB2 

BLADE (CB) MECHANICAL DESCRIPTIONS 

91803610 

000000 

00101 

393* 

c 

T4+2 

FB3 

FOR EACH ROTOR. (THESE POINT TO 

91803620 

000000 

00101 

394* 

c 

T4+3 

CB1 

PARAMETERS 28 TO 70 OF THE BLADE 

91803630 

000000 

00101 

395* 

c 

T4+4 

CB2 

SURFACE EVALUATION ROUTINE). 

91803640 

000000 

00101 

396* 

c 

T4+5 

CB3 


91803650 

000000 

00101 

397* 

c 

T4+6 

CF4 


91803660 

000000 

00101 

398* 

c 

T4+7 

CBS 


91803670 

000000 

00101 

399* 

c 

T4+8 

CB6 


91803680 

000000 

00101 

400* 

c 

. . . 



91803690 

000000 

00101 

401* 

c 

LOWQR 

XXX 

GROUP 1 PARAMETERS FOR BLADES OF 

91803700 

000000 

00101 

402* 

c 

LQWGR+1 

XXX 

THE LOW ROTOR 

91803710 

000000 

00101 

403* 

c 

L0W0R+2 

XXX 


91803720 

000000 

00101 

404* 

c 

L0W0R+3 

XXX 


91803730 

000000 

00101 

405* 

c 

» » t 

. . • 


91803740 

000000 

00101 

406* 

c 

LQWQR+12 

XXX 


91803750 

000000 

00101 

407* 

c 

, , t 



91803760 

000000 

00101 

408* 

c 

HIGHOR 

XXX 

GROUP 1 PARAMETERS FOR BLADES OF THE HIGH 

91803770 

000000 

00101 

409* 

c 

HIGHOR+1 

XXX 

ROTOR 

91803780 

000000 

00101 

410* 

c 

HIGHGR+2 

XXX 


91803790 

000000 

00101 

411* 

c 

HIGHOR+3 

XXX 


91803800 

000000 

00101 

412* 

c 

♦ ♦♦ 

♦ * . 


91803810 

000000 

00101 

413* 

c 

HIGHQR+12 

XXX 


91803820 

000000 

00101 

414* 

c 

*♦ . 



91803830 

000000 

00101 

415* 

c 

N1 

9000 

LOW ROTOR SPEED 

91803840 

000000 

00101 

416* 

c 

N2 

12000 

HIGH ROTOR SPEED 

91803850 

000000 

00101 

417* 

c 

♦ . . 



91803860 

000000 

00101 

418* 

c 

BD11 

XXX 

GROUP 3 PARAMETERS FOR THE BLADES OF 

91803870 

000000 

00101 

419* 

c 

BD11+1 

XXX 

FAN ROTOR 1 

91803880 

000000 

00101 

420* 

c 

BD11+2 

XXX 


91803890 

000000 

00101 

421* 

c 

BD11+3 

XXX 


91803900 

000000 

00101 

422* 

c 

4 » 4 



91803910 

000000 

00101 

423* 

c 

BD21 

XXX 

GROUP 3 PARAMETERS FOR THE BLADES OF 

91803920 

000000 

00101 

424* 

c 

BD21+1 

XXX 

FAN ROTOR 2 

91803930 

000000 

00101 

425* 

c 

BD21+2 

XXX 


91803940 

000000 

00101 

426* 

c 

BD21+3 

XXX 


91803950 

000000 

00101 

427* 

c 

♦ ♦ . 



91803960 

000000 

00101 

428* 

c 

BD32 

XXX 

GROUP 3 PARAMETERS FOR THE BLADES OF 

91803970 

000000 

00101 

429* 

c 

BB32+1 

XXX 

CORE ROTOR 3 

91803980 

000000 

00101 

430* 

c 

BD32+2 

XXX 


91803990 

000000 

00101 

431* 

c 

BD32+3 

XXX 


91804000 

000000 

00101 

432* 

c 

4 4 4 



91804010 

000000 

00101 

433* 

c 

B1 

1 

BLADES IN THIS EXAMPLE ARE NUMBERED IN 

91804020 

000000 

00101 

434* 

c 

B2 

2 

CIRCUMFERENTIAL SEQUENCE* HOWEVER* THIS 

91804030 

000000 

00101 

435* 

c 

B3 

3 

NEED NOT BE SO WHEN USING THIS METHOD 

91804040 

000000 

00101 

436* 

c 

B4 

4 


91804050 

000000 

00101 

437* 

c 

, • » 



91804060 

000000 

00101 

438* 

c 

FBI 

XXX 

GROUP 6 THROUGH GROUP 10 PARAMETERS 

91804070 

000000 

00101 

439* 

c 

FB1+1 

XXX 

FOR BLADES ON THE FIRST FAN DISK 

91804080 

000000 

00101 

440* 

c 

FB1+2 

XXX 


91804090 

000000 

00101 

441* 

c 

FB1+3 

XXX 


91804100 

000000 

00101 

442* 

c 

♦ ♦ ♦ 



91804110 

000000 

00101 

443* 

c 

CB2 

XXX 

GROUP 3 THROUGH GROUP 10 PARAMETERS 

91804120 

000000 

00101 

444* 

c 

CB2+1 

XXX 

FOR BLADES ON THE SECOND CORE DISK 

91804130 

000000 

00101 

445* 

c 

CB2+2 

XXX 


91804140 

000000 

00101 

446* 

c 

CB2+3 

XXX 


91804150 

000000 

00101 

447* 

c 




91804160 

000000 

00101 

448* 

c 




91804170 

000000 

00101 

449* 

c 



THE FOLLOWING IS THE SURFACE DEFINITION 

91804180 

000000 

00101 

450* 

c 



HEADER FOR BLADE 17 OF FAN ROTOR 1. 

91804190 

000000 
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00101 

451* 

C 



THIS BLADE'S ID NUMBER IS 61, 

91804200 

000000 

00101 

452* 

C 

IP-5 

711 

BLADE SURFACE TYPE NUMBER 

91804210 

000000 

00101 

453* 

C 

IP-4 

10 

LOCATE PARAMETERS BY MULTIMODES 

91804220 

000000 

00101 

454* 

C 

IP-3 

1 

TRUNCATION HEADERS ARE IMMEDIATE 

91804230 

000000 

00101 

455* 

C 

IP-2 

1.0 

THIS IS A DEFEND SURFACE 

91804240 

000000 

00101 

456* 

C 

IP-1 

2 

THERE ARE TWO TRUNCATION HEADERS 

91804250 

000000 

00101 

457* 

c 

IP 

24 

NUMBER OF FOLLOWING PARAMETERS 

91804260 

000000 

00101 

458* 

c 

IP+1 

6 

NUMBER OF MULTIMODES TO EVALUATE 

9180427 0 

000000 

00101 

459* 

c 

IP+2 

8 

FIRST MULTIMODE - MODE 8 

91804280 

000000 

00101 

460* 

c 

IP+3 

2 

NUMBER OF PARAMETERS THIS MODE 

91804290 

000000 

00101 

461* 

c 

IP+4 

0 

LOU ROTOR ENTRY 

91804300 

000000 

00101 

462* 

c 

IP+5 

0 

ROTOR ORIENTATIONS TABLE 

91804310 

000000 

00101 

463* 

c 

IP+6 

8 

SECOND MULTIMODE - MODE 8 

91804320 

000000 

00101 

464* 

c 

IP+7 

2 

NUMBER OF PARAMETERS THIS MODE 

91804330 

000000 

00101 

465* 

c 

IP+8 

0 

LOW ROTOR ENTRY 

91804340 

000000 

00101 

466* 

c 

I P+9 

1 

ENGINE SPEEDS TABLE 

91804350 

000000 

00101 

467* 

c 

IP+10 

8 

THIRD MULTIMODE - MODE 8 

91804360 

000000 

00101 

468* 

c 

IF+11 

2 

NUMBER OF PARAMETERS THIS ENTRY 

91804370 

000000 

00101 

469* 

c 

IP+12 

0 

FAN DISK 1 ENTRY 

91804380 

000000 

00101 

470* 

c 

IP+13 

2 

BLADE ON DISK ORIENTATIONS TABLE 

91804390 

000000 

00101 

471* 

c 

IP+14 

1 

FOURTH MULTIMODE - MODE 1 

91804400 

000000 

00101 

472* 

c 

IP+15 

1 

NUMBER OF PARAMETERS THIS ENTRY 

91804410 

000000 

00101 

473* 

c 

IP+16 

7.53 

DISK RADIUS 

91804420 

000000 

00101 

474* 

c 

IP+17 

8 

FIFTH MULTIMODE - MODE 8 

91804430 

000000 

00101 

475* 

c 

IP+1 8 

2 

NUMBER OF PARAMETERS THIS ENTRY 

91804440 

000000 

00101 

476* 

c 

IP+19 

17 

BLADE 17 ENTRY 

91804450 

000000 

00101 

477* 

c 

IP+20 

3 

BLADE NUMBER TABLE 

91804460 

000000 

00101 

478* 

c 

IP+21 

8 

SIXTH MULTIMODE - MODE 8 

91804470 

000000 

00101 

479* 

c 

IP+22 

2 

NUMBER OF PARAMETERS THIS ENTRY 

91804480 

000000 

00101 

480* 

c 

IP+23 

0 

FAN DISK 1 BLADES ENTRY 

91804490 

000000 

00101 

481* 

c 

IP+24 

4 

MECHANICAL BLADE DESCRIPTIONS TABLE 

91804500 

000000 

00101 

482* 

c 



NOTE - THIS EXAMPLE SURFACE EVALUATION 

91804510 

000000 

00101 

483* 

c 



ROUTINE EXPECTS 10 GROUPS OF PARAMETERS, 

91804520 

000000 

00101 

484* 

c 



AND THUS 10 MULTIMODE POINTERS, SINCE 

91804530 

000000 

00101 

485* 

c 



ONLY 6 POINTERS ARE SUPPLIED THE STANDARD91804540 

000000 

00101 

486* 

c 



LOGIC WILL ASSUME THAT PARAMETER GROUPS 

91804550 

oooooo 

00101 

487* 

c 



7, 8, 9, AND 10 FOLLOW CONSECUTIVELY 

91804560 

000000 

00101 

488* 

c 



BEHIND GROUP 6, WHICH IS THE LAST 

91804570 

oooooo 

00101 

489* 

c 



GROUP POINTED TO. 

91804580 

oooooo 

00101 

490* 

c 

IP+25 

6 

TRUNCATION REFERENCE POSITION - * PARAM 

91804590 

oooooo 

00101 

491* 

c 

IP+26 

2 

FIRST TRUNCATION HEADER - OUTER CASE 

91804600 

oooooo 

00101 

492* 

c 

IP+27 

1,0 

DO NOT FLOP SURFACE SIDE 

91804610 

oooooo 

00101 

493* 

c 

IP+28 

29 

EXTERNAL ID NUMBER 

91804620 

oooooo 

00101 

494* 

c 

IP+29 

2 

SECOND TRUNCATION HEADER - DISK RIM 

91804630 

oooooo 

00101 

495* 

c 

IP+30 

1,0 

DO NOT FLOP SURFACE SIDE 

91804640 

oooooo 

00101 

496* 

c 

IP+31 

32 

EXTERNAL ID NUMBER 

91804650 

oooooo 

00101 

497* 

c 




91804660 

oooooo 

00101 

498* 

c 




91804670 

oooooo 

00101 

499* 

c 

THIS CONCLUDES THE EXAMPLE 

91804680 

oooooo 

00101 

500* 

c 




91804690 

oooooo 

00101 

501* 

c 




91804700 

oooooo 

00101 

502* 

c 




91804710 

oooooo 

00101 

503* 

c 

REQUIRED SUBROUTINES ****** 

91804720 

oooooo 

00101 

504* 

c 




91804730 

oooooo 

00101 

505* 

c 

003 

STACK 


91804740 

oooooo 

00101 

506* 

c 



450 BVIRI 

91884750 

oooooo 

00101 

507* 

c 

451 

BDZN 


91884752 

oooooo 

00101 

508* 

c 

453 

IBDZN 


91884754 

oooooo 

00101 

509* 

c 

455 

CVIRI 


91884756 

oooooo 

00101 

510* 

c 



456 IPBDZN 

91884758 

oooooo 

00101 

511* 

c 

917 

POINTC 


91884760 

oooooo 

00101 

512* 

c 

919 

ADDR 


91884762 

oooooo 

00101 

513* 

c 



920 CALSER 

91884764 

oooooo 

00101 

514* 

c 


A COMPLETE SURFACE EVALUATION ROUTINES PACKAGE 

91804770 

oooooo 

00101 

515* 

r 

t* 




91804780 

oooooo 

00101 

516* 

c 




91804790 

oooooo 

00101 

517* 

c 




91804800 

oooooo 

00101 

518* 

c 

ERRORS 

REPORTED ****** 


91804810 

oooooo 

00101 

519* 

c 




91804820 

oooooo 

00101 

520* 

c 

NONE 



91874830 

oooooo 

00101 

521* 

c 




91804840 

oooooo 

00101 

522* 

c 




91804850 

oooooo 
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00101 

523* 

C 


91804860 

000000 

00103 

524* 


PARAMETER IVSIZ=50 

91804870 

000000 

00104 

525* 


COMMON /IVSIZC/IVSIZE 

91804890 

000000 

00105 

526* 


REAL XL ( 4 ) » SV f GR ( 3 ) » SF » GF < 3 ) 

91884910 

000000 

00106 

527* 


INTEGER ID 

91884920 

000000 

00107 

528* 


INTEGER IV(IVSIZ)fTRCNT 

91804930 

000000 

00110 

529* 


INTEGER THMDE 

91874935 

000000 

00110 

530* 

C 


91884940 

000000 

00110 

531* 

C 

CARDS 918X4940 THROUGH 918X5030 DELETED BY 003-08. THE FORTRAN 

91884950 

000000 

00110 

532* 

c 

ADDRESS MAP IS NO LONGER NEEDED SINCE CALSED HAS TAKEN OOER 

91884960 

000000 

00110 

533* 

c 

THAT FUNCTION. 

91884970 

000000 

00110 

534* 

c 


91884980 

000000 

00111 

535* 


DEFINE ITYPE=IBDZN(IP-5) 

91805040 

000000 

00112 

536* 


DEFINE ISPLC=IB0ZN(IP-4) 

91805050 

000000 

00113 

537* 


DEFINE ITHLC=IBDZN(IP-3) 

91805060 

000000 

00114 

538* 


DEFINE DC=BDZN< IP-2) 

91805070 

000000 

00115 

539* 


DEFINE NTRUNC-IBDZN( IP-1 ) 

91805080 

000000 

00116 

540* 


DEFINE NPARAh=IBDZN<IP) 

91805090 

000000 

00117 

541* 


DEFINE THMODE=IBDZN< IPTH) 

91805100 

000000 

00120 

542* 


DEFINE THDCMD=BDZN( IPTHM ) 

91805110 

000000 

00121 

543* 


DEFINE THIDNM=IBDZN(IPTH+2) 

91805120 

000000 

00122 

544* 


DEFINE DIPBDZ( I)=IPBDZN(I) 

91805130 

000000 

00123 

545* 


IOSIZE=IOSIZ 

91805140 

000000 

00124 

546* 


DATA IOSIZE/IOSIZ/ 


000001 

00126 

547* 

1001 

RIDCM=1 .0 0 INTERNAL D/C MODIFIER 

91805150 

000001 

00127 

548* 

1002 

INHIB=0 0 ALLOW TRUNCATIONS 

91805160 

000004 

00130 

549* 

1003 

IP=IPBDZN<ID) 0 SDH POINTER 

91805170 

000004 

00131 

550* 


ISW=1 0 CALC SURFACE OALUES 

91805180 

000010 

00132 

551* 


NRTN=1 0 SWITCH FOR SURFACES 

91805190 

000012 

00133 

552* 


GO TO 1101 0 START WITH TRUNCATIONS 

91805200 

000013 

00134 

553* 

1010 

SF=SO 0 PASS RESULT OUT 

91805210 

000015 

00135 

554* 


RETURN 0 BACK TO CALLER 

91805220 

000016 

00135 

555* 

c 


91805230 

000016 

00135 

556* 

c 

SECOND ENTRY POINT - REOERSED FIRST NEST TRUNCATIONS 

91805240 

000016 

00135 

557* 

c 


91805250 

000016 

00135 

558* 

c 


91805260 

000016 

00136 

559* 


ENTRY SURFTR (XLfIDfSFfI) 

91885270 

000021 

00140 

560* 

1020 

RIDCM--1.0 0 INTERNAL D/C MODIFIER 

91805280 

000021 

00141 

561* 


GO TO 1002 0 REST OF ENTRY IS COMMON 

91805290 

000023 

00141 

562* 

C 


91805300 

000023 

00141 

563* 

c 

THIRD ENTRY - GRADIENTS 

91805310 

000023 

00141 

564* 

c 


91805320 

000023 

00141 

565* 

c 


91805330 

000023 

00142 

566* 


ENTRY GRAD (XLfIDfGFf*) 

91885340 

000024 

00144 

567* 

1030 

IP=IPBDZN(ID) 0 SDH POINTER 

91805350 

000024 

00145 

568* 


ISW=2 0 CALC GRADIENTS 

91805360 

000030 

00146 

569* 


NRTN=3 0 SWITCH ON GRADIENTS 

91805370 

000032 

00147 

570* 


GO TO 1201 0 GO STRAIGHT TO CALCS 

91805380 

000034 

00150 

571* 

1035 

DO 1036 IP=1 »3 0 PASS GRADIENT OUT 

91805390 

000042 

00153 

572* 

1036 

GF(IP)=GR(IP) 0 

91805400 

000042 

00155 

573* 


RETURN 0 BACK TO CALLER 

91805410 

000044 

00155 

574* 

C 


91805420 

000044 

00155 

575* 

c 

FOURTH ENTRY - INHIBIT ALL TRUNCATIONS 

91805430 

000044 

00155 

576* 

c 


91805440 

000044 

00155 

577* 

c 


91805450 

000044 

00156 

578* 


ENTRY SURFTI (XLfIDfSFf*) 

91885460 

000047 

00160 

579* 


IP=IPBDZN(ID) 0 SDH POINTER 

91805470 

000047 

00161 

580* 


ISW=1 0 CALC SURFACE VALUES 

91805480 

000053 

00162 

581* 


NRTN=1 0 SUITCH FOR SURFACES 

91805490 

000055 

00163 

582* 


GO TO 1201 0 GO DIRECT TO SURFACE 

91805500 

000056 

00163 

583* 

c+ 


V03-08C 

000056 

00163 

584* 

c 

FIFTH ENTRY - SURFACE VELOCITIES 

V03-08C 

000056 

00163 

585* 

c 


V03-08C 

000056 

00163 

586* 

c 

THIS ENTRY POINT INVOKES THE APPROPRIATE SURFACE EVALUTION 

V03-08C 

000056 

00163 

587* 

c 

ROUTINE TO OBTAIN THE VELOCITY VECTOR FOR THE DESIGNATED SURFACE 

V03-08C 

000056 

00163 

588* 

c 

AT THE POINT XL. THE VELOCITY VECTOR RESULT IS REPORTED IN GF. 

V03-08C 

000056 

00163 

589* 

c 


V03-08C 

000056 

00163 

590* 

c 

note; 

V03-08C 

000056 

00163 

591* 

c 


V03-08C 

000056 

00163 

592* 

c 

THE POSITION OF A BOUNDARY IN SPACE-TIME IS INDEPENDENT OF ITS 

V03-08C 

000056 

00163 

593* 

c 

DEFEND/CONTAIN VALUE. THUSf ITS VELOCITY VECTOR IS ALSO 

V03-08C 

000056 

00163 

594* 

c 

INDEPENDENT OF ITS DEFEND/CONTAIN VALUE. 

V03-08C 

000056 

00163 

595* 

c- 


V03-08C 

000056 

00164 

596* 


ENTRY SURFVE (XLfIDfGFf*) 

V03-08C 

000057 

00166 

597* 


IP=IPBDZN( ID) 0 POINT TO SDH 

V03-08C 

000057 

00167 

598* 


ISW=3 8 SET SER SWITCH 

V03-08C 

000063 

00170 

599* 


NRTN=3 0 SET INTERNAL SWITCH 

V03-08C 

000065 

00171 

600* 


GO TO 1201 0 INTERNAL CODE SERVICE 

V03-08C 

000066 
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00171 

601* 

C+ 



V03-08E 

000066 

00171 

602* 

C 

SIXTH ENTRY — SURFACE ACCELERATIONS 

V03-08E 

000066 

00171 

603* 

C 



V03-08E 

000066 

00171 

604* 

C 

THIS ENTRY POINT INVOKES THE APPROPRIATE SURFACE EVALUATION 

V03-08E 

000066 

00171 

605* 

c 

ROUTINE TO OBTAIN THE ACCELERATION VECTOR FOR THE DESIGNATED 

V03-08E 

000066 

00171 

606* 

c 

SURFACE AT THE POINT XL* THE ACCELERATION VECTOR RESULT IS 

V03-08E 

000066 

00171 

607* 

c 

REPORTED IN GF. SINCE ACCELERATION 

IS DEPENDENT ONLY ON 

V03-08E 

000066 

00171 

608* 

c 

SURFACE POSITION, THE DEFEND/CONTAIN VALUE IS NOT APPLIED TO 

V03-08E 

000066 

00171 

609* 

c 

THE RESULT * 


V03-08E 

000066 

00171 

610* 

o 



V03-08E 

000066 

00172 

611* 


ENTRY SURFAC (XL,ID,GF,«) 

0 

V03-08E 

000067 

00174 

612* 


IP-IPBDZN(ID) 

0 POINT TO SDH 

V03-08E 

000067 

00175 

613* 


ISW=4 

0 SET SER SWITCH 

V03-08E 

000073 

00176 

614* 


NRTN=3 

0 SET INTERNAL RETURN 

V03-08E 

000075 

00177 

615* 


GO TO 1201 

0 JOIN COMMON SERVICE 

V03-08E 

000077 

00177 

616* 

c 



91805510 

000077 

00177 

617* 

c 

EVALUATION OF A SURFACE BASED ON AN 

SDH POINTED TO BY IP STARTS 

91805520 

000077 

00177 

618* 

c 

HERE. IT IS RE-ENTRANT AND SHOULD 

FOLLOW TRUNCATIONS OUT TO 

91805530 

000077 

00177 

619* 

c 

A CONSIDERABLE DEPTH IF THEY ARE NOT INHIBITED BY 'INHIB'. 

91805540 

000077 

00177 

620* 

c 



91805550 

000077 

00177 

621* 

c 



91805560 

000077 

00200 

622* 

1101 

IF (NRTN-2) 1111, , 

0 SKIP SAVE ON FIRST NEST 

91805570 

000101 

00203 

623* 


CALL SPOPI (1PN) 

0 GET NEW SDH POINTER 


000104 

00204 

624* 


CALL SPSHI (IP) 

0 SAVE CURRENT SDH POINTER 

91805590 

000107 

00205 

625* 


CALL SPSHI (IPT) 

0 TRUNCATION POINTER 

91805600 

000112 

00206 

626* 


CALL SPSHI ( IPTH) 

0 TRUNCATION HEADER POINTER 

91805610 

000115 

00207 

627* 


CALL SPSHI (MDE) 

0 ADDRESSING MODE 

91805620 

000120 

00210 

628* 


CALL SPSHI (THMDE) 

0 TRUNCATION MODE 

91805630 

000123 

00211 

629* 


CALL SPSHI (IDUH11) 

0 TRUNCATION LOOP COUNTER 

91805640 

000126 

00212 

630* 


CALL SPSHI (NV) 

0 NUMBER OF MULTIMODES 

91805650 

000131 

00213 

631* 


DO 1103 IDUM1 1=1 , TRCNT 

0 APPROPRIATE ADDRESS VECT0RS91805660 

000141 

00216 

632* 


IP=IV(IBUM11) 

0 

91805670 

000141 

00217 

633* 

1103 

CALL SPSHI (IP) 

0 

91805680 

000142 

00221 

634* 


CALL SPSHI (TRCNT) 

0 NUMBER OF TRUNCATIONS 

91805690 

000146 

00222 

635* 


CALL SPSHR (RIBCM) 

0 INTERNAL MODIFIER 

91805700 

000151 

00223 

636* 


RIBCH-1 .0 

0 LOAD NEW MODIFIER 

91805710 

000154 

00224 

637* 


IP=IPN 

0 LOAD NEW SDH POINTER 

91805720 

000156 

00225 

638* 

1111 

IF (INHIB) , ,1201 

0 BR IF TRUNCATIONS INHIBITED 

91805730 

000161 

00230 

639* 


TRCNT=NTRUNC 

0 GET NUMBER OF TRUNCATIONS 

91805740 

000163 

00231 

640* 


IF (TRCNT) 1201,1201, 

0 BR IF NO TRUNCATIONS ANYWAY 

91805750 

000172 

00234 

641* 


IPT=IP+1+NPARAM 

0 POINT TO REFERENCE SPOT 

91805760 

000174 

00235 

642* 


MDE=ITHLC 

0 TRUNCATION ADDRESSING MODE 

91805770 

000203 

00236 

643* 


CALL ADDR (IPT, HDE, IV, NV, TRCNT) 

0 FILL IN IV BASED ON ADDRESS 

91885780 

000212 

00237 

644* 



0 MODE EVALUATIONS 

91885790 

000221 

00237 

645* 


CALL SPSHI (INHIB) 

0 SAVE INHIBIT AND 

91805810 

000221 

00240 

646* 


CALL SPSHI (NRTN) 

0 RETURN SWITCH INFORMATION 

91805820 

000224 

00241 

647* 


NRTN=2 

0 SURFACES CALLS FROM TRUNC 

91805830 

000227 

00242 

648* 



0 HANDLER 

91805840 

000231 

00242 

649* 


IPTH=IV(1) 

0 POINT TO FIRST TRUNC HEADER 

91805850 

000231 

00243 

650* 


IDUM11=G 

0 CLEAR LOOP COUNTER 

91805860 

000233 

00244 

651* 

1121 

IDUM11=IDUM11H 

0 DO LOOP THROUGH TRUNCATIONS 

91805870 

000235 

00245 

652* 


IF (IDUH11 -TRCNT) , ,1190 

0 BR IF LOOP FINISHED 

91805880 

000237 

00250 

653* 


THMDE=THMODE 

0 GET BASIC TRUNCATION HEADER 

91805890 

000242 

00251 

654* 


THMDE=ABS< THMDE) 

0 MODE 

91805900 

000246 

00252 

655* 


INHIB=0 

0 SETUP NEXT NEST LEVEL 

91805910 

000250 

00253 

656* 


IF (THMODE) ,1127,1127 

0 INHIBIT TRUNC CONTROL 

91805920 

000251 

00256 

657* 


INHIB=1 

0 

91805930 

000256 

00257 

658* 

1127 

GO TO (1128, 1130, 1132), THhDE 

0 BR BY TRUNC HEADER MODE 

91805940 

000261 

00260 

659* 

1128 

IDUM12=IPTH+8 

0 MODE 1 - SDH RIGHT HERE 

91805950 

000271 

00261 

660* 


GO TO 1135 

0 

91805960 

000273 

00262 

661* 

1130 

IBUH12=DIPBDZ(THIDNM) 

0 MODE 2 - SDH DEFINED IN 

91815970 

000275 

00263 

662* 


GO TO 1135 

0 IPBDZN (EXTERNAL DEF) 

91805980 

000307 

00264 

663* 

1132 

IDUM12=THIDNM+IBDZN(1> 

0 MODE 3 - SDH DEFINED IN 

91805990 

000311 

00265 

664* 


IDUM12=IBDZN< IDUM12) 

0 INTERNAL TABLE 

91806000 

000324 

00266 

665* 

1135 

CALL SPSHI ( IDUM12) 

0 PUT NEW SDH POINTER ON 3TACK91806010 

000331 

00267 

666* 


GO TO 1101 

0 GO EVALUATE THE SURFACE 

91806020 

000333 

00267 

667* 

C 



91806030 

000333 

00267 

668* 

c 

ALL INTERNAL TRUNCATION SURFACE EVALUATIONS RETURN TO THE 

91806040 

000333 

00267 

669* 

c 

FOLLOWING SEGMENT OF CODE. 


91806050 

000333 

00267 

670* 

c 



91806060 

000333 

00267 

671* 

c 



91806070 

000333 

00270 

672* 

1140 

SV=SV*THDCMD*RIDCM 

0 DEFEND/CONTAIN MODIFIERS 

91806080 

000335 
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00271 

673* 


IF (SO) 1160* , 

0 BR IF SURFACE TRUNCATED 

91806090 

000345 

00274 

674* 

1144 

IF (ITHLC-10) 1145*1153*114:: 

8 BR IF MULT INODES IN EFFECT 

V03-08D 

000350 

00277 

675* 

1145 

60 TO (1146, 1150, 1150), THMDE 

0 REPOINT IPTH BY TH MODE 

91806110 

000360 

00300 

676* 

1146 

IPTH=IPTH+8 

0 NODE 1 - SKIP A STANDARD 

91816120 

000370 

00301 

677* 


IPTH=IPTH+1+IBDZN(IPTH) 

9 SDH 

91806130 

000372 

00302 

678* 


IPTH=IPTH+1+IBDZN( IPTH) 

9 

91806140 

000401 

00303 

679* 


GO TO 1121 

9 DO ANOTHER TRUNCATION 

91806150 

000410 

00304 

680* 

1150 

IPTH=IPTH+3 

9 NODES 2*3 -JUST SKIP A 

91806160 

000412 

00305 

681* 



9 TRUNCATION HEADER 

91806170 

000414 

00305 

682* 


GO TO 1121 

0 DO ANOTHER TRUNCATION 

91806180 

000414 

00306 

683* 

1153 

NV=NV-1 

9 DOWN COUNT ACTUAL MULTIH0DES91806190 

000416 

00307 

684* 



9 LEFT 

91806200 

000421 

00307 

685* 


IF (NV) 1145,1145* 

9 BR IF NONE LEFT 

91806210 

000421 

00312 

686* 


IPTH=IV(IDUMU+1> 

0 NULTINODE POINTERS FOR 

91806220 

000423 

00313 

687* 



9 TRUNCATION HEADERS ALWAYS 

91806230 

000425 

00313 

688* 



0 POINT CORRECTLY 

91806240 

000425 

00313 

689* 


GO TO 1121 

9 GO DO ANOTHER TRUNCATION 

91806250 

000425 

00313 

690* 

C 



91806260 

000425 

00313 

691* 

C 

CONTROL ARRIVES HERE IF A TRUNCATION OCCURS 

91806270 

000425 

00313 

692* 

C 



91806280 

000425 

00313 

693* 

C 



91806290 

000425 

00314 

694* 

1160 

SV*1.0 

0 REPORT A SAFE VALUE 

91806300 

000427 

00315 

695* 


CALL SPOPI <NRTN) 

9 GET CALLING NEST'S SWITCHES 

91806310 

000430 

00316 

696 * 


CALL SPOPI (INHIB) 

0 

91806320 

000433 

00317 

697 * 


IF (NRTN-2) 1164,1166*1164 

0 ARE WE NESTED ? 

V03-08D 

000436 

00322 

698* 

1164 

SF=SV 

0 NO, MAKE REPORT TO CALLER 

V03-08D 

000441 

00323 

699* 


RETURN 4 

9 VIA TRUNCATION ROUTE 

V03-08D 

000443 

00324 

700* 

1166 

CALL SPOPR (RIDCM) 

0 YES* POP BACK TO PARENT 

V03-08D 

000450 

00325 

701* 


CALL SPOPI (TRCNT) 

0 SURFACE 

V03-08D 

000452 

00326 

702* 


DO 1170 IDUM1 1=TRCNT * 1 * -1 

0 

V03-08D 

000455 

00331 

703* 


CALL SPOPI (IP) 

0 

V03-08D 

000463 

00332 

704* 

1170 

IV(IDUM11)=IP 

0 

V03-08D 

000465 

00334 

705* 


CALL SPOPI (NV) 

0 

V03-08D 

000470 

00335 

706* 


CALL SPOPI (IDUN11) 

0 

V03-08D 

000473 

00336 

707* 


CALL SPOPI (THMDE) 

0 

V03-08B 

000476 

00337 

708* 


CALL SPOPI (MDE) 

0 

V03-08D 

000501 

0034Q 

709* 


CALL SPOPI (IPTH) 

0 

V03-08D 

000504 

00341 

710* 


CALL SPOPI (IPT) 

0 

V03-08D 

000507 

00342 

711* 


CALL SPOPI (IP) 

9 

V03-08D 

000512 

00343 

712* 


GO TO 1144 

0 FORCE NO PARENT TRUNCATION 

V03-08D 

000515 

00343 

713* 

C 



91806360 

000515 

00343 

714* 

C 

CONTROL ARRIVES HERE IF TRUNCATION 

LOOP COMPLETES WITHOUT ANY 

91806370 

000515 

00343 

715* 

C 

TRUNCATIONS OCCURING. MUST PRECEDE 

STATEMENT 1201 OR HAVE A GO T091806380 

000515 

00343 

716* 

c 



91806390 

000515 

00343 

717* 

c 



91806400 

000515 

00344 

718* 

1190 

CALL SPOPI (NRTN) 

0 LEAVING TRUNC LOOP TAKE 

91806410 

000517 

00345 

719* 


CALL SPOPI (INHIB) 

0 US BACK UP IN NEST 

91806420 

000521 

00345 

720* 

c 



91806430 

000521 

00345 

721* 

c 

SURFACE VALUE ROUTINE VECTORING DONE HERE. 

91806440 

000521 

00345 

722* 

c 



91806450 

000521 

00345 

723* 

c 



91806460 

000521 

00346 

724* 

1201 

MBE=ISPLC 

0 GET PARAMETER ADDRESSING 

91806470 

000525 

00347 

725* 


CALL ADR (IP*MDE*IV,NV) 

0 MODE AND FILL IV FROM IT 

91886480 

000533 

00350 

726* 


IPOS=ITYPE 

0 GET SER'S NUMBER 

91876490 

000541 

00351 

727* 


CALL CALSER (IPOS*XL*IV*NV*SV*GR»ISW> 

91886500 

000550 

00352 

728* 



0 GO EVALUATE SURFACE 

91876510 

000561 

00352 

729* 

c 

CARDS 918X6520 THROUGH 918X6610 DELETED BY V03-08 

91876520 

000561 

00352 

730* 

c 



91806620 

000561 

00352 

731* 

c 

SURFACE EVALUATION ROUTINES RETURN CONTROL TO THIS POINT. 

91806630 

000561 

00352 

732* 

c 



91806640 

000561 

00352 

733* 

c 



91806650 

000561 

00352 

734* 


GO TO ( 1218*1220*1222*1222) * ISW 

0 APPLY DC AS APPROPRIATE 

V03-08E 

000561 

00353 

735* 

1218 

SV=SV*DC 

0 APPLY DC TO SURFACE VALUE 


000573 

00354 

736* 


GO TO <1010* 1223* 1035) *NRTN 

0 


000602 

00355 

737* 

1220 

DO 1221 IDUN11=1*3 

0 APPLY DC TO GRADIENT 


000613 

00360 

738* 

1221 

GR ( IDUM1 1 ) =DC*GR ( IDUH1 1 > 

0 

91826680 

000620 

00362 

739* 

1222 

GO TO ( 1010* 1223* 1035) * NRTN 

0 GO SOMEPLACE 

V03-08C 

000626 

00363 

740* 

1223 

CALL SPOPR (RIDCM) 

0 POP THE THINGS WE 

91806700 

000636 

00364 

741* 


CALL SPOPI (TRCNT) 

0 STORED WHEN WE STARTED 

91806710 

000640 

00365 

742* 


DO 1227 IDUM11=TRCNT*1*-1 

0 TO EVALUATE THIS SURFACE 

91806720 

000643 

00370 

743* 


CALL SPOPI (IP) 

0 

91806730 

000651 

00371 

744* 

1227 

IV(IDUM11)=IP 

0 

91806740 

000653 

00373 

745* 


CALL SPOPI (NV) 

0 

91806750 

000656 

00374 

746* 


CALL SPOPI (IDUN11) 

0 

91806760 

000661 

00375 

747* 


CALL SPOPI (THMDE) 

0 

91806770 

000664 

00376 

748* 


CALL SPOPI (MDE) 

0 

91806780 

000667 

00377 

749* 


CALL SPOPI (IPTH) 

0 

91806790 

000672 

00400 

750* 


CALL SPOPI (IPT) 

0 

91806800 

000675 

00401 

751* 


CALL SPOPI (IP) 

0 

91806810 

000700 

00402 

752* 


GO TO 1140 

0 GO BACK TO TRUNC HANDLER 

91806820 

000703 

00402 

753* 

C 

CARDS 918X6830 THROUGH 918X8999 DELETED BY V03-08 

91876830 

000703 

00403 

754* 


END 


91809990 

001051 


END FOR 

> 
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GFOR?MS CASPER9*SA100D 
FOR 4R1 E -04/13/84-15:37:21 <2»> 
>l?EOF 


SUBROUTINE SA100 ENTRY POINT 000151 

STORAGE USED? CODE(l) 000174? DATA(O) 000026? BLANK COMMON<2) 000000 
COMMON blocks: 

0003 IVSIZC 000001 


EXTERNAL REFERENCES (BLOCK? NAME) 


0004 

BDZN 

0005 

POINTC 

0006 

NERR2* 

0007 

SORT 

0010 

NERR3* 


STORAGE ASSIGNMENT (BLOCK? TYPE? RELATIVE LOCATION? NAME) 


0001 

000012 

100L 

0001 000056 105L 

0001 000071 

107L 

0001 

000130 

114L 

0001 

000025 

0001 

000110 

135G 

0001 000133 143G 

0004 R 000000 

BDZN 

0000 

I 000004 

I 

0000 

000010 

OOOC I 000000 

IVC 

0003 I 000000 IVSIZE 

OOOO I 000002 

NC 

0000 

R 000003 

R 




00101 

1* 


SUBROUTINE 

: SA100 (XL 

?IV?NV?SV?6R?ISU) 


92110010 

000000 

00101 

2* 

C 





92100020 

000000 

00101 

3* 

C 





92100030 

000000 

00101 

4* 

c 

SA100 

****** A SUBROUTINE FOR CASPER ****** 

92100040 

000000 

00101 

5* 

c 


AUTHOR 

WILLIAM HENRY 

JONES 

92100050 

000000 

00101 

6* 

c 


V03-00 

24 JUL 78 


92100060 

000000 

00101 

7* 

c 


V03-01 

06 SEP 78 


92110061 

000000 

00101 

8* 

c 


V03-01A 

28 SEP 81 

ADD VELOCITY HANDLING 

V03-01A 

000000 

00101 

9* 

c 


V03-01B 

05 AUG 83 

ADD ACCELERATION SUPPORT 

V03-01B 

000000 

00101 

10* 

c 





90000020 

000000 

00101 

11* 

c 





90000030 

000000 

00101 

12* 

c 

ARGUMENTS 

PASSED IN 

SUBROUTINE CALL ****** 

90010034 

000000 

00101 

13* 

c 





90010036 

000000 

00101 

14* 

c 

ARGUMENT 

TYPE 

DIMENSION 

DESCRIPTION 

90000040 

000000 

00101 

15* 

c 



— 


90000050 

000000 

00101 

16* 

c 

XL 

REAL 

1 TO 4 

THREE POSITION COORDINATES 90000060 

000000 

00101 

17* 

c 




FOLLOWED BY CURRENT TIME 

90000070 

000000 

00101 

18* 

c 





90000110 

000000 

00101 

19* 

c 

IV 

INTEGER 

1 TO IVSIZE 

POINTER LIST TO PARAMETERS 

90000120 

000000 

00101 

20* 

c 




IN 'BDZN' 

90000130 

000000 

00101 

21* 

c 





90000140 

000000 

00101 

22* 

c 

NV 

INTEGER 

SCALAR 

NUMBER OF INDEPENDENT 

90000150 

000000 

00101 

23* 

c 




ENTRIES IN 'IV' 

90000160 

000000 

00101 

24* 

c 





90000170 

000000 

00101 

25* 

c 

SV 

REAL 

SCALAR 

SURFACE VALUE RETURNED 

90000180 

000000 

00101 

26* 

c 





90000190 

000000 

00101 

27* 

c 

GR 

REAL 

1 TO 3 

GRADIENT RETURNED 

90000200 

000000 

00101 

28* 

c 





90000210 

000000 

00101 

29* 

c 

ISU 

INTEGER 

SCALAR 

FUNCTION SELECTOR 

90000220 

000000 

00101 

30* 

c 




1 => SURFACE 

90000230 

000000 

00101 

31* 

c 




2 => GRADIENT 

90000240 

000000 

00101 

32* 

c 





90010262 

000000 

00103 

33* 

c 





90010264 

000000 

00101 

34* 

c 

ARGUMENTS 

IN CASPER 

'CACHE' MEMORY ****** 

90010266 

000000 

00101 

35* 

c 





90010268 

000000 

00101 

36* 

c 

ARGUMENT 

TYPE 

DIMENSION 

DESCRIPTION 

90010270 

000000 

00101 

37* 

r 






ftAAA Art 

L 





YVVl sjZ/Z 


00101 

38* 

c 

BDZN 

REAL 

1 TO BDZNSZ 

SURFACE EVALUATION ROUTINE 

90010274 

000000 

00101 

39* 

c 




PARAMETERS LIST 

90010276 

000000 
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49 



00101 

40* 

C 




90010278 

000000 

00101 

41* 

C 




90000270 

000000 

00101 

42* 

C 




90000280 

000000 

00101 

43* 

C 




90000290 

000000 

00101 

44* 

C 

DESCRIPTION ****** 



90000300 

000000 

00101 

45* 

c 




90000310 

000000 

00101 

46* 

c 

SA100 DEFINES A TINE-INVARIANT 

SPHERE IN SPACE* 

92100300 

000000 

00101 

47* 

c 




90000340 

000000 

00101 

48* 

c 




90000350 

000000 

00101 

49* 

c 




90000360 

000000 

00101 

50* 

c 

PARAMETER LIST ****** 



90000370 

000000 

00101 

51* 

c 




90000380 

000000 

00101 

52* 

c 

REL POSIT 'IV' SLOT DESCRIPTION 

90000390 

000000 

00101 

53* 

c 




90000400 

000000 




00101 

54* 

c 

IVP 1 X COORD OF 

SPHERE CENTER 

92100500 

000000 

00101 

55* 

c 

IVP+1 1 Y COORD 

OF 

SPHERE CENTER 

92100510 

000000 

00101 

56* 

c 

IVP+2 1 Z COORD 

OF 

SPHERE CENTER 

92100520 

000000 

00101 

57* 

c 

IVP+3 2 RADIUS 

OF SPHERE 

92100530 

000000 

00101 

58* 

c 




90000430 

000000 

00101 

59* 

c 




90000440 

000000 

00101 

60* 

c 




90000450 

000000 

00101 

61* 

c 

REQUIRED SUBROUTINES ****** 



90000460 

000000 

00101 

62* 

c 




90000470 

000000 

00101 

63* 

c 

450 


BVIRI 

90010474 

000000 

00101 

64* 

c 

451 BDZN 



90010476 

000000 

00101 

65* 

c 

917 POINTC 



90000480 

000000 

00101 

66* 

c 




90000490 

000000 

00101 

67* 

c 




90000500 

000000 

00101 

68* 

c 




90000510 

000000 

00101 

69* 

c 

ERRORS REPORTED ****** 



90000520 

000000 

00101 

70* 

c 




90000530 

000000 

00101 

71* 

c 

NONE 



92100700 

000000 

00101 

72* 

c 




90000560 

000000 

00101 

73* 

c 




90000570 

000000 

00101 

74* 

c 




90000580 

000000 

00103 

75* 


COMMON /IVSIZC/IVSIZE 



90000600 

000000 

00104 

76* 


INTEGER IV(IVSIZE),NV,ISW 



90000610 

000000 

00105 

77* 


REAL XL(4) ,SV,GR(3) 



90010620 

000000 

00106 

78* 


INTEGER IVC<2> 



92100900 

000000 

00107 

79* 


DATA NC/2/ 



92100910 

000000 

00111 

80* 


DATA IVC/0,3/ 



92100920 

000000 

00113 

81* 


DEFINE P(I )=BDZN(I ) 



92100930 

000000 

00114 

82* 


DEFINE A(I)=P(IV(1)H-1> 



92100940 

000000 

00115 

83* 


DEFINE B=P(IV(2)+3) 



92100950 

000000 

00116 

84* 


GO TO < 100, 100,114, 114) ,ISW 


0 TRAP VEL AND ACCEL REQ 

V03-01B 

000000 

00117 

85* 

100 

CALL POINTC (IV,IVC,NV,NC) 


0 CORRECT PARAMETER POINTERS 

V03-01A 

000012 

00120 

86* 


R=0.0 


0 CALCULATE THE RADIUS FROM 

92100970 

000017 

00121 

87* 


DO 102 1=1 >3 


0 THE CENTER OF THE SPHERE 

92100980 

000025 

00124 

88* 

102 

R=R+ ( A ( I ) -XL ( I ) ) **2 


0 TO THE POINT IN QUESTION 

92100990 

000025 

00126 

89* 


R=SQRT(R) 


0 

92101000 

000042 

00127 

90* 


GO TO (105,107) ,ISW 


0 JMP BY TASK 

92101010 

000046 

00130 

91* 

105 

SV=R-B 


0 SURFACE 

92101020 

000056 

00131 

92* 


RETURN 


0 

92101030 

000065 

00132 

93* 

107 

R=AMAX1 (R,1.0E-19) 


0 AVOID ZERO DIVIDE 

92101040 

000071 

00133 

94* 


R=1 »0/R 


0 DIVIDE BY MULTIPLYING 

92101050 

000076 

00134 

95* 


DO 112 I — 1 » 3 


0 DO THE GRADIENT 

92101060 

000110 

00137 

96* 

112 

GR(I)=R*(XL( I)-A(I) ) 


0 

92101070 

000110 

00141 

97* 


RETURN 


0 

92101080 

000124 

00142 

98* 

114 

DO 115 1=1,3 


3 TIME INVARIANT SURFACES HAVEV03-01A 

000133 

00145 

99* 

115 

GR(I>=0.0 


6 A ZERO VELOCITY 

V03-01A 

000133 

00147 

100* 


RETURN 


0 

V03-01A 

000134 

00150 
END FOR 

101* 


END 



92101090 

000173 


Listing 9.— Concluded. 


eFQRrtfS CASPER1 .POWERD 
FOR 4R1 E -04/13/84-16I03M9 (40 
>8E0F 


SUBROUTINE POWERC ENTRY POINT 000247 


STORAGE USED: CODEU) 000315? DATA(O) 000062? BLANK COMHON(2) 000000 


EXTERNAL REFERENCES (BLOCK? NAME) 


0003 

CHKLH 

0004 

WERR2 

0005 

PM1 

0006 

VM1 

0007 

P 

0010 

PM2 

0011 

V 

0012 

VM2 

0013 

STACWD 

0014 

CHKTIM 

0015 

NERR3* 


STORAGE ASSIGNMENT (BLOCK? TYPE? RELATIVE LOCATION? NAME) 


0001 

000031 

105L 

0001 000035 106L 0001 000040 107L 0001 000100 

147G 

0001 000141 

0001 

000143 

163G 

0001 000145 167G 0000 R 000025 A1 0000 R 000026 A2 

0000 R 000016 

0000 

R 000027 B1 

0000 R 000030 B2 0000 R 000017 B3 0000 R 000020 

C 

0000 R 000006 

0000 R 000002 DMAT 

0000 R 000011 EPS 0000 R 000025 F 0000 I 000021 

I 

0000 I 000001 

0000 

000042 

INJP* 

0000 I 000000 IS 0000 I 000022 J 0000 I 000023 

K 

0000 I 000024 

0007 R 000000 P 

0005 R 000000 PM1 0010 R 000000 PM2 0000 R 000012 

R 

0011 R 000000 

0006 

R 000000 

VM1 

0012 R 000000 VM2 



00101 

1* 


SUBROUTINE POWERC (IL?IH?TA?TB) 

12000010 

000000 

00101 

2* 

C+ 


12000020 

000000 

00101 

3* 

C 


12000030 

000000 

00101 

4* 

C 

POWERC ****** A SUBROUTINE FOR CASPER ****** 

12000040 

000000 

00101 

5* 

C 

AUTHOR WILLIAM HENRY JONES 

12000050 

000000 

00101 

6* 

C 

V01-00 05 FEB 79 

12000060 

000000 

00101 

7* 

c 

V01-00A 07 MAR 79 

120A0061 

000000 

00101 

8* 

c 

VOl-OOB 11 FEB 80 ADD 'CHKTIM' 


000000 

00101 

9* 

c 

VOl-OOC 23 FEB 81 REMOVE TIME FROM COMMON 


000000 

00101 

10* 

c 

VOl-OOD 05 APR 83 P IS DUPLICATE NAME 

VOl-OOD 

000000 

00101 

11* 

c 


12000070 

000000 

00101 

12* 

c 


12000080 

000000 

00101 

13* 

c 

DESCRIPTION ****** 

12000090 

000000 

00101 

14* 

c 


12000100 

000000 

00101 

15* 

c 

CALCULATES THE AVERAGE POWER OF COMPRESSION OVER THE PAST 

12000110 

000000 

00101 

16* 

c 

ITERATIONS FOR ALL AEROELEMENTS IN THE RANGE 'IL' TO 'IH'. 

12000120 

000000 

00101 

17* 

c 


12000130 

000000 

00101 

18* 

c 

THEORY ****** 

12000140 

000000 

00101 

19* 

c 


12000150 

000000 

00101 

20* 

c 

THE PRESSURE AND VOLUME HISTORIES OF EACH AEROELEMENT ARE 

12000160 

000000 

00101 

21* 

c 

ASSUMED TO BE QUADRATIC IN TIME. 

12000170 

000000 

00101 

22* 

c 


12000180 

000000 

00101 

23* 

c 

P = A1*T**2 + A2*T + A3 

12000190 

000000 

00101 

24* 

c 

V = B1*T**2 + B2*T + B3 

12000200 

000000 

00101 

25* 

c 


12000210 

000000 

00101 

26* 

c 

WE SET PRIMED TIME EQUAL TO ZERO AT THE TIME OF THE PREVIOUS 

12000220 

000000 

00101 

27* 

c 

RECORDED PRESSURES AND VOLUMES (PHI AND VH1). FURTHER? THE 

12000230 

000000 

00101 

28* 

c 

CURRENT PRESSURES AND VOLUMES ARE AT RELATIVE TIME TA AND THE 


000000 

00101 

29* 

c 

SECOND PREVIOUS PRESSURES AND VOLUMES ARE AT TIME TB (WHERE 


000000 

00101 

30* 

c 

TB IS USUALLY LESS THAN ZERO. THUS? 


000000 

00101 

31* 

c 



000000 

00101 

32* 

c 

A3 = PM1 (AT REL T =0) 


000000 

00101 

33* 

c 

B3 = VW1 (AT REL T =0) 


000000 

00101 

34* 

c 



000000 

00101 

35* 

c 

AND 


000000 

00101 

36* 

c 



000000 

00101 

37* 

c 

P -PM1 = A1*TA**2 + A2*TA 


000000 

00101 

38* 

c 

PM2-PM1 = A1*TB**2 + A2*TB 


000000 

00101 

39* 

c 

V -VM1 = B1*TA**2 + B2*TA 


000000 

00101 

40* 

c 

VM2-VM1 = B1*TB**2 f B2*TB« 


000000 

00101 

41* 

c 



000000 

00101 

42* 

c 

BY SIMPLE MATRIX MANIPULATIONS? IT CAN BE SHOWN THAT 


000000 
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00101 

43* 

C 




000000 

00101 

44* 

C 

A1 B1 TB -TA 

P -PM1 V -VM1 


000000 

00101 

45* 

C 


* 


000000 

00101 

46* 

c 

A2 B2 -TB**2 TA**2 

PM2-PM1 VM2-VM1 


000000 

00101 

47* 

c 

— 



000000 

00101 

48* 

c 

<TA**2)*TB - TA*TB**2 


000000 

00101 

49* 

c 




000000 

00101 

50* 

c 



12000350 

000000 

00101 

51* 

c 

WORK OF COMPRESSION IS THE INTEGRAL 

OF PRESSURE WITH RESPECT 

12000360 

000000 

00101 

52* 

c 

TO VOLUME . SINCE PRESSURE AND VOLUME ARE ASSUMED PARAMETRIC 

12000370 

000000 

00101 

53* 

c 

IN TIME, WORK CAN BE CALCULATED AS THE INTEGRAL OF THE QUANTITY 

12000380 

000000 

00101 

54* 

c 

PRESSURE TIMES THE DERIVATIVE WITH RESPECT TO TIME OF VOLUME 

12000390 

000000 

00101 

55* 

c 

(END QUANTITY) WITH RESPECT TO TIME, 

. ASSUMING THE ABOVE 

12000400 

000000 

00101 

56* 

c 

QUADRATIC EXPRESSIONS FOR PRESSURE AND VOLUME , THE WORK DONE 

12000410 

000000 

00101 

57* 

c 

FOR THE TIME 0 TO T+ BECOMES 


12000420 

000000 

00101 

58* 

c 



12000430 

000000 

00101 

59* 

c 

W = (Al*Bl*0.5)*T+**4 + ( (2*A2*BHAl*B2)/3)*T+**3 

12000440 

000000 

00101 

60* 

c 

+ <(2*A3*Bl+A2*B2)/2)*T+**2 + A3*B2*T+ 

12000450 

000000 

00101 

61* 

c 



12000460 

000000 

00101 

62* 

c 

CASPER ROUTINES REQUIRE POWER OF COMPRESSION RATHER THAN 

12000470 

000000 

00101 

63* 

c 

WORK OF COMPRESSION FIGURES FOR INTEGRATION INTO OTHER 

12000480 

000000 

00101 

64* 

c 

QUANTITIES THAT ARE ONLY CALCULABLE AS POWERS . THUS THIS 

12000490 

000000 

00101 

65* 

c 

ROUTINE REPORTS THE QUANTITY W/TA. 


12000500 

000000 

00101 

66* 

c 



12000510 

000000 

00101 

67* 

c 



12000710 

000000 

00101 

68* 

c 



12000720 

000000 

00101 

69* 

o 



12000730 

000000 

00103 

70* 


PARAMETER GURID-120 

8 


oooooo 

00104 

71* 


INTEGER IL» IH,IS» IE 

8 


000000 

00105 

72* 


REAL DMAT(2,2),DM(3),EPS 

0 


oooooo 

00106 

73* 


REAL TA,TB,R(2,2) 

8 

VOl-OOD 

oooooo 

00107 

74* 


REAL F(2,2),A1,B1,A2,B2,A3,B3,C 

0 


oooooo 

00110 

75* 


EQUIVALENCE (A1 ,F( 1 , 1 ) ) , (A2,F(2, 1 ) ) 

8 


oooooo 

00111 

76* 


EQUIVALENCE (B1 ,F(1 , 2) ) , (B2, F<2,2) ) 

0 


oooooo 

00112 

77* 


DATA IE/1/ 

0 


oooooo 

00114 

78* 


DATA EPS/1. 0E-20/ 

0 SINGULARITY TOLERANCE 


oooooo 

00116 

79* 


IE=1 

0 JUST IN CASE 

V01-00D 

oooooo 

00117 

80* 


CALL CHKLH <IL,IH,IS,OURID,IE) 

0 CHECK AEROELEMENT RANGE 


000001 

00120 

81* 


IF (IS) 102,106,102 

g RANGE OK ? 


000010 

00123 

82* 

102 

IF (ABS(TA-TB)-EPS) 105,103,103 

0 YES, LOOK FOR POTENTIAL ZERO 

000012 

00126 

83* 

103 

IF (ABS(TA)-EPS) 105,104,104 

g DIVIDES 


000020 

00131 

84* 

104 

IF (ABS(TB)-EPS) 105,107,107 

@ 


000024 

00134 

85* 

105 

CALL WERR2 (0URID,5) 

0 OOPS 


000031 

00135 

86* 

104 

RETURN 

g 


000035 

00136 

87* 

107 

C=1.0/(TA*TB*(TA-TB) ) 

0 INVERSE OF DETERMINANT 


000040 

00137 

88* 


DMAT(1,1)=C*TB 

@ ESTABLISH MATRIX AS OVERHEAD 

000047 

00140 

89* 


DMAT (2,1) =“C*TB*TB 

0 WORK FOR ALL 


000051 

00141 

90* 


DHAT(1,2)--C*TA 

0 


000053 

00142 

91* 


BMAT(2,2)=C*TA*TA 

0 


000056 

00143 

92* 


BH(3)-0.5*TA 

0 1/2 * TA (W/T) 


000060 

00144 

93* 


DM ( 2 ) =0 » 666667*DH ( 3 ) *T A 

0 1/3 * TA**2 


000063 

00145 

94* 


DM(1)=1.5*DM(2)*TA 

0 1/2 * TA**3 


000066 

00146 

95* 


DO 143 I=IL,IH,IS 

0 DO EACH AEROELEMENT 


000100 

00151 

96* 


A3=PM1(I) 

0 T=0 SETS A3, B3 


000100 

00152 

97* 


B3=VM1(I) 

0 


000104 

00153 

98* 


R(1,1)=P(I)-A3 

0 CALC DELTA-P AND DELTA-V 

VOl-OOD 

000110 

00154 

99* 


R(2,1)=PM2(I)-A3 

0 RELATIVE TO T=0 P AND V 

V01-00D 

000115 

00155 

100* 


R(1,2)=V( I)“B3 

0 

VOl-OOD 

000122 

00156 

101* 


R(2,2)=VM2(I)-B3 

0 

VOl-OOD 

000127 

00157 

102* 


DO 137 J : -l ,2 

0 SIMPLE MATRIX MULTIPLY GETS 


000143 

00162 

103* 


DO 137 K-1,2 

0 Al, A2, Bl, AND B2 


000143 

00165 

104* 


F(J,K)=0.0 

0 


000143 

00166 

105* 


DO 136 L=1 ,2 

0 


000145 

00171 

106* 

136 

F(J,K)=F(J,K) +DMAT ( J , L ) *R ( L , K ) 

0 

VOl-OOD 

000145 

00173 

107* 

137 

CONTINUE 

0 


000163 

00176 

108* 


C=(A1*B1*DM(1))+((2.0*A2*B1+A1*B2)*DM(2))+((2.0*A3*B1+A2*B2)*DM(3) 

000163 

00176 

109* 


1 )+(A3*B2) 

0 CALC POWER OF COMPRESSION 


000163 

00177 

110* 


CALL STACWD (1,0 

0 STORE RESULT 


000212 

00200 

111* 


CALL CHKTIM (IL,IH,I) 

0 KEEP AN EYE ON THE TIME 


000216 

00201 

112* 

143 

CONTINUE 

0 


000225 

00203 

113* 


RETURN 

0 


000225 

00204 

114* 


END 


12001010 

000314 

END FOR 








> 


Listing 10.— Concluded. 


I 


0FOR*MS CASPER5.WRKFDD 

FOR 4R1 E -04/1 3/84-15! 48! 49 (If) 

>0EOF 


SUBROUTINE WRKFLD ENTRY POINT 000125 


STORAGE USED! CODE(l) 000145* DATA(O) 000024? BLANK CQMM0N(2) 000000 


EXTERNAL REFERENCES (BLOCK* NAME) 


0003 

MU 

0004 

MUTHET 

0005 

CHKLH 

0006 

CHKTIM 

0007 

U 

0010 

P 

0011 

EIJ 

0012 

STS 

0013 

NERR3I 


STORAGE ASSIGNMENT 

0001 000111 110L 

0000 I 000001 I 
0003 R 000000 MU 


00101 

1* 


00101 

2* 

C+ 

00101 

3* 

C 

00101 

4* 

C 

00101 

5* 

C 

00101 

6* 

C 

00101 

7* 

C 

00101 

8* 

C 

00101 

9* 

C 

00101 

10* 

C 

00101 

11* 

C 

00101 

12* 

c 

00101 

13* 

c 

00101 

14* 

c 

00101 

15* 

c 

00101 

16* 

c 

00101 

17* 

c 

00101 

18* 

c 

00101 

19* 

c 

00101 

20* 

c 

00101 

21* 

c 

00101 

22* 

c- 

00103 

23* 


00104 

24* 


00105 

25* 


00106 

26* 


00111 

27* 

102 

00114 

28* 


00115 

29* 


00120 

30* 


00121 

31* 


00124 

32* 

107 

00126 

33* 

108 

00130 

34* 

109 

00132 

35* 

110 

00133 
END FOR- 

> 

36* 



(BLOCK* TYPE* RELATIVE LOCATION, NAME) 


0001 000017 112G 

0000 000010 INJP$ 

0004 R 000000 MUTHET 


0001 000027 116G 

0000 I 000000 IS 
0010 R 000000 P 


0001 000051 122G 

0000 I 000002 J 
0000 R 000003 R 


SUBROUTINE WRKFLD (IL*IH) 


WRKFLD ****** A SUBROUTINE FOR CASPER ****** 

AUTHOR WILLIAM HENRY JONES 

V01-00 12 FEB 80 

VO 1-00 A 15 SEP 80 FUNCTION TYPE STATEMENTS 


DESCRIPTION ****** 

THIS ROUTINE IS PART OF A PATCH TO THE POWER OF DISTORTION 
SECTION OF CASPER WORK FLOW CALCULATION. IT LOADS INTO THE 
SCRATCH STRING OF EACH ELEMENT IN THE RANGE 'IL' TO 'IH' THE 
QUANTITY 

S(I) = U( J)*(-P*D( I * J)+MUTHET*D(I, J)+2*MU*E< I* J) ) * 1=1,3* J=l*3 
PER THE DERIVATION IN THE CASPER THEORETICAL REPORT. 


PARAMETER 0URID=504 
REAL MU, MUTHET 

CALL CHKLH (IL*IH*IS*0URIB*1> 

IF (IS) 102*110*102 
DO 109 I=IL*IH*I5 
CALL CHKTIM (IL*IH*I> 

DO 108 J=l*3 

R=U ( I * J ) * ( MUTHET ( I ) -P ( I ) ) 

DO 107 K=i*3 

R=R+2.0*U(I,K)*MU< I* 1)*EIJ< I * J*K) 
CALL STS (I * J*R) 

CONTINUE 

RETURN 

END 


0 GO VALIDATE DO LOOP RANGE 

0 IS IT VALID ? 

& YES, DO IT 

0 KEEP AN EYE ON THE TIME 

e 

0 DO KRONECKER DELTA TERM 
§ 

0 ACCUMULATE SHEAR TERM 
0 STORE RESULT 
0 
0 
0 


0011 R 000000 EIJ 
0000 I 000004 K 
0007 R 000000 U 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

oooooo 

000000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

000006 

000010 

000017 

000027 

000027 

000051 

000051 

000077 

000111 

000111 

000144 
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0FOR,MS CASPERS. WRKFED 

FOR 4R1 E -04/13/84-15J50J03 (Of) 

>0EOF 


SUBROUTINE WRKFLE ENTRY POINT 000153 


STORAGE USED? COBE(l) 000174J BATA(O) 000046* BLANK COMMON(2) 000000 


EXTERNAL REFERENCES ( BLOCK f NAME) 


0003 

CHKLH 

0004 

CHKTIM 

0005 

NEI 

0006 

S 

0007 

INTP 

0010 

V 

0011 

STS 

0012 

NERR3$ 


STORAGE ASSIGNMENT 

(BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 

000017 

112G 

0001 000030 1166 

0001 

000136 

118L 

0001 

000056 

133G 

0001 000074 142G 

0001 

000077 

145G 

0000 

I 000021 

I 

0000 000032 INJPi 

0007 

I 000000 

INTP 

0000 

I 000022 

J 

0000 I 000023 K 

0005 

I 000000 

NEI 


0001 000040 
0000 R 000000 
0000 I 000017 
0006 R 000000 


122G 

0001 

B 

0000 

IS 

0000 

S 

0010 


000054 130G 
R 000024 D 
I 000020 II 
R 000000 V 


00101 

1* 


SUBROUTINE WRKFLE (IL,IH) 


000000 

00101 

2* 

C+ 




000000 

00101 

3* 

C 




000000 

00101 

4* 

C 

WRKFLE ****** A SUBROUTINE FOR CASPER ****** 

000000 

00101 

5* 

C 

AUTHOR 

WILLIAM HENRY JONES 

000000 

00101 

6* 

C 

V01-00 

12 FEB 80 


000000 

00101 

7* 

C 




000000 

00101 

8* 

C 




000000 

00101 

?* 

c 

DESCRIPTION ****** 



000000 

00101 

10* 

c 




000000 

00101 

11* 

c 

THIS ROUTINE COMPLETES 

THE POWER OF DISTORTION PATCH BY 

000000 

00101 

12* 

c 

CALCULATING THE DIVERGENCE OF THE 

VECTORS CALCULATED BY 

000000 

00101 

13* 

c 

WRKFLB. 



000000 

00101 

14* 

c 




000000 

00101 

15* 

c 




000000 

00101 

16* 

c- 




000000 

00103 

17* 


PARAMETER 0URID-505 


0 

000000 

00104 

18* 


REAL B(3,5) 


0 

000000 

00105 

19* 


CALL CHKLH (IL,IH,IS,OURIBr 1) 

0 CHECK RANGE LIMITS 

000000 

00106 

20* 


IF (IS) 102,118,102 


0 VALID RANGE ? 

000006 

00111 

21* 

102 

DO 117 I1=IL, IH, IS 


0 YES, USE IT 

000010 

00114 

22* 


CALL CHKTIM (IL,IH,I1) 


0 KEEP AN EYE ON THE TIME 

000017 

00115 

23* 


DO 107 1-1,5 


0 PICKUP VALUES FROM THE 

000030 

00120 

24* 


J=NEI(I1,I) 


0 NEIGHBORS 

000030 

00121 

25* 


DO 107 K"l, 3 


0 

000040 

00124 

26* 

107 

B(K,I)=S( J,K) 


0 

000040 

00127 

27* 


DO 110 1=1,5 


0 FORM DIFFERENCES 

000056 

00132 

28* 


DO 110 J=1 ,3 


0 

000056 

00135 

29* 

110 

B(J,I)=B(J,I)-S(I1,J) 


0 

000056 

00140 

30* 


B=0.0 


0 INIT ACCUMULATOR 

000067 

00141 

31* 


DO 114 1=1,3 


0 ACCUMULATE DIVERGENCE 

000077 

00144 

32* 


DO 114 J=1 ,5 


0 (WORK PER UNIT VOLUME) 

000077 

00147 

33* 

114 

D=D+INTP(I1,I , J)*B< I, J) 


0 

000077 

00152 

34* 


D=D*V(Ii) 


0 WORK DONE ON THE ELEMENT 

000121 

00153 

35* 


CALL STS (11, 4, D) 


0 SAVE IN SCRATCH SLOT 4 

000126 

00154 

36* 

117 

CONTINUE 


0 

000136 

00156 

37* 

118 

RETURN 


0 

000136. 

00157 
END FOR 

38* 


END 


0 

000173 


Listing 12. — Subroutine WRKFLE. 


0FOR?MS CASPERS. WRKFFD 

FOR 4R1 E -04/13/84-15:51 J27 (1») 

>0EOF 


SUBROUTINE WRKFLF ENTRY POINT 000220 


STORAGE USEDJ C0DE(1> 0002435 BATA(O) 0000435 BLANK COMMON (2) 000000 


EXTERNAL REFERENCES (BLOCK? NAME) 


0003 

CHKLH 

0004 

ASCH 

0005 

T 

0006 

V 

0007 

X 

0010 

NEI 

0011 

STS 

0012 

CHKTIM 

0013 

XPRR 

0014 

SORT 

0015 

NERR3* 


STORAGE ASSIGNMENT (BLOCK? TYPE? RELATIVE LOCATION? NAME) 


0001 

000017 

112G 

0001 000047 1216 0001 000103 125L 0001 000061 

126G 

0001 000161 

131L 

0001 

000071 

132G 

0001 000203 136L 0001 000106 144G 0004 R 000000 ASCH 

0000 R 000000 

B 

0000 R 000001 

C 

0000 R 000002 B 0000 R 000003 E 0000 I 000013 

I 

0000 000025 

INJP* 

0000 I 000011 

IS 

0000 I 000012 11 0000 I 000014 J 0000 I 000015 K 

0010 I 000000 NEI 

0000 

R 000004 

R 

0000 R 000005 S 0005 R 000000 T 0006 R 000000 V 

0007 R 000000 

X 

0000 R 000006 

XI 





00101 

1* 


SUBROUTINE WRKFLF (IL?IH?G»AST> 


000000 


00101 

2* 

C+ 



000000 


00101 

3* 

C 



000000 


00101 

4* 

C 

WRKFLF ****** A SUBROUTINE FOR CASPER ****** 


000000 


00101 

5* 

C 

AUTHOR WILLIAM HENRY JONES 


000000 


00101 

6* 

C 

X01.00 12 FEB 80 


000000 


00101 

7* 

C 

X01.00A 06 OCT 81 DISTANCE INTO HEAT FLOW 

X01.00A 

000000 


00101 

8* 

c 



000000 


00101 

9* 

c 



000000 


00101 

10* 

c 

DESCRIPTION ****** 


000000 


00101 

11* 

c 



000000 


00101 

12* 

c 

THIS ROUTINE CALCULATES THE HEAT FLOW BETWEEN NEAREST 


000000 


00101 

13* 

c 

NEIGHBORS* IT IS CALCULATED AS THE AVERAGE COEFFICIENT 


000000 


00101 

14* 

c 

OF HEAT TRANSFER BETWEEN THE NEIGHBORS TIMES THE DIFFERENCE 


000000 


00101 

15* 

c 

IN TEMPERATURE TIMES THE TIME DURATION OF HEAT FLOW TIMES THE 

X01.00A 

000000 


00101 

16* 

c 

AVERAGE CROSS-SECTIONAL AREA OF THE HEAT-EXCHANGING ELEMENTS 

X01.00A 

000000 


00101 

17* 

c 

AND DIVIDED BY THE DISTANCE BETWEEN THE ELEMENTS. 

X01.00A 

000000 


00101 

18* 

c 



000000 


00101 

19* 

c 

CALCULATIONS ARE RECORDED ONLY FOR TARGET AEROELEMENTS 


000000 


00101 

20* 

c 

IN THE RANGE 'IL' TO 'IH\ NEIGHBORS MUST RECIPROCATE 


000000 


00101 

21* 

c 

(THE NEIGHBOR MUST LIST THE TARGET AEROELEMENT AS A 


000000 


00101 

22* 

c 

NEIGHBOR) FOR THE CALCULATIONS BETWEEN THE PAIRING TO 


000000 


00101 

23* 

c 

BE CARRIED OUT. 


000000 


00101 

24* 

c 



000000 


00101 

25* 

c 



000000 


00101 

26* 

c- 



000000 


00103 

27* 


PARAMETER 0URID=5O6 


000000 


00104 

28* 


REAL B?C?B?E?R?S? XI (3) 0 

X01.00A 

000000 


00105 

29* 


CALL CHKLH (IL?IH?I5?0URID?1) 0 CHECK RANGE LIMITS 


000000 


00106 

30* 


IF (IS) 102?136?102 0 VALID RANGE ? 

X01.00A 

000006 


00111 

31* 

102 

DO 135 I1=IL»IH?IS 0 YES? USE IT 

X01.00A 

000010 


00114 

32* 


B=0«0 0 CLEAR ACCUMULATOR 

X01.00A 

000017 


00115 

33* 


C=ASCH(I1) 0 TARGET COEFFICIENT? 

X01.00A 

000020 


00116 

34* 


D=T(I1) 0 TEMPERATURE? 

X01.00A 

000024 
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00117 

35* 


E=3 » 141592653* ( ABS<7 « 9577471E-02*V< I 1 > )**0 . 6666667 ) 0 AREA, 

X01.00A 

000030 

00120 

36* 


DO 108 1=1,3 

0 POSITION 

X01 «00A 

000047 

00123 

37* 

108 

X1(I)=X(I1,I) 

0 

X01.00A 

000047 

00125 

38* 


DO 131 1=1,5 

0 DO EACH NEAREST NEIGHBOR 

X01.00A 

000061 

00130 

39* 


J=NEI (11,1) 

0 GET NEIGHBOR ID 

X01.00A 

000061 

00131 

40* 


DO 113 K=l,5 

0 

X01.00A 

000071 

00134 

41* 


IF <NEIU»K)-I1> 113,125,113 

0 DOES NEIGHBOR RECIPROCATE ? 

X01.00A 

000071 

00137 

42* 

113 

CONTINUE 

0 NO, NOT YET ANYWAY 

X01.00A 

000101 

00141 

43* 


GO TO 131 

0 NO, NOT AT ALL 

X01 »00A 

000101 

00142 

44* 

125 

R=0«0 

0 CALC DISTANCE BETWEEN 

X01.00A 

000103 

00143 

45* 


DO 127 K=l»3 

0 NEIGHBORS 

X01 »00A 

000106 

00146 

46* 

127 

R=R+(X(J,K>-X1(K>>**2 

0 

X01.00A 

000106 

00150 

47* 


R=SQRT(R) 

0 

X01 »00A 

000120 

00151 

48* 


S=3.1415?2653*(ABS(7.?577471E-02tV(jm*0. 6466667) B CALC AREA 

X01*00A 

000124 

00152 

49* 


B=B+( (ASCH(J)+C)*(T( J)-D)*(S+E) )/R 

0 UN-NORhALIZED HEAT EXCHANGE 

X01.00A 

000140 

00153 

50* 

131 

CONTINUE 

0 

X01«OOA 

000162 

00155 

51* 


B=B*0»25*GDAST 

0 NORMALIZE HEAT EXCHANGE 

X01.00A 

000162 

00156 

52* 


CALL STS (11, 5, B) 

0 SAVE IN SCRATCH AREA 

X01 *00A 

000166 

00157 

53* 


CALL CHKTIM (IL,IH,I1) 

0 KEEP AN EYE ON THE TIME 

X01.00A 

000173 

00160 

54* 

135 

CONTINUE 

0 

X01 *00A 

000203 

00162 

55* 

136 

RETURN 

0 

X01.00A 

000203 

00163 

56* 


END 

0 


000242 


END FOR 

> 
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0FOR?MS CASPERS. WRKFGD 
FOR 4R1 E -04/1 3/84-1 5 J 53: 01 (1?) 
>0EQF 


SUBROUTINE URKFL6 ENTRY POINT 000106 


STORAGE USED! CODE(l) 000125? DATA(O) 000020? BLANK C0MM0N(2> 000000 


EXTERNAL REFERENCES (BLOCK? NAME) 


0003 STAT 

0004 CHKLH 

0005 CHKTIM 

0006 S 

0007 ACWDT 

0010 ASCV 

0011 6DACT 

0012 STT 

0013 NERR34 


STORAGE ASSIGNMENT (BLOCK* TYPE? RELATIVE LOCATION? NAME) 


0001 000054 107L 

0001 

000075 

110L 

0001 

000017 113G 

0007 R 000000 ACWDT 

0010 

R 000000 ASCV 

0000 R 000000 B 
0006 R 000000 S 

0011 

0003 

R 000000 
I 000000 

GDACT 

STAT 

0000 

000007 INJP$ 

0000 I 000001 IS 

0000 

I 000002 11 


00101 

If 


SUBROUTINE WRKFLG (IL?IH? GDAST) 


OOOOOO 

00101 

2* 

C+ 



000000 

00101 

3* 

c 



OOOOOO 

00101 

4* 

c 

WRKFLG ****** A SUBROUTINE FOR CASPER ****** 

OOOOOO 

00101 

5 1 

c 

AUTHOR WILLIAM HENRY JONES 

OOOOOO 

00101 

6t 

c 

V01-00 12 FEB 80 


OOOOOO 

00101 

n 

c 

V01-00A 15 SEP 80 

FUNCTION TYPE STATEMENT 

OOOOOO 

00101 

8$ 

c 



OOOOOO 

00101 

n 

c 



OOOOOO 

00101 

lot 

c 

DESCRIPTION ****** 


OOOOOO 

00101 

11* 

c 



OOOOOO 

00101 

12* 

c 

THIS ROUTINE REVISES THE CURRENT TEMPERATURE OF EACH ELEMENT 

OOOOOO 

00101 

13* 

c 

IN THE RANGE 'IL' TO 'IH' BASED ON THE FOLLOWING INFORMATION: 

OOOOOO 

00101 

14* 

c 

1) THE CURRENT TEMPERATURE COPY IN GDACT? 2) THE POWER OF 

OOOOOO 

00101 

15* 

c 

COMPRESSION IN ACWDT? 3) THE VISCOUS DISTORTION WORK IN 

OOOOOO 

00101 

16* 

c 

S(4) ? AND 4) THE HEAT TRANSFERED BY 

CONDUCTION IN S(5). 

OOOOOO 

00101 

17* 

c 



OOOOOO 

00101 

18* 

c 



OOOOOO 

00101 

19* 

c- 



OOOOOO 

00103 

20* 


PARAMETER 0URID=507 


OOOOOO 

00104 

21* 


INTEGER STAT 


OOOOOO 

00105 

22* 


REAL B 


OOOOOO 

00106 

23* 


CALL CHKLH <IL?IH?IS?0URIH?1 ) 

e CHECK RANGE LIMITS 

OOOOOO 

00107 

24* 


IF (IS) 102 ? 1 10 f 102 

9 VALID RANGE ? 

000006 

00112 

25* 

102 

DO 109 I1=IL»IH? IS 

8 YES? USE IT 

000010 

00115 

26* 


CALL CHKTIM (IL?IH?I1) 

9 KEEP AN EYE ON THE TIME 

000017 

00116 

27* 


B=S(I1?4)+S(I1?5) 

9 DISTORTION + CONDUCTION 

000024 

00117 

28* 


IF (AND(STAT(I1>,2*»2>> 107rl06,107 

0 IS THERE A COMPRESSION TERM? 

000037 

00122 

29* 

106 

B=B+GBAST*ACWDT (ID 

9 YES? CONVERT IT TO WORK 

000045 

00123 

30* 

107 

B= ( B/ ASCV (ID) +GDACT (ID 

9 CONVERT TO TEMPERATURE 

000054 

00124 

31* 


CALL STT (11 ?B> 

9 REVISE ELEMENT'S TEMP 

000066 

00125 

32* 

109 

CONTINUE 

9 

000075 

00127 

33* 

110 

RETURN 

9 

000075 

00130 

34* 


END 

9 

000124 

END FOR 







> 
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8F0R,MS CASPER1.VOLD 
FOR 4R1 E -04/17/84-12J 49 JOl (5»> 
>8E0F 


SUBROUTINE VOL ENTRY POINT 001017 


STORAGE USED: COBE(l) 001040? BATA(O) 000145? BLANK COMMON(2) 000000 
COMMON blocks: 

0003 ISIZEC 000001 


EXTERNAL REFERENCES (BLOCK, NAME) 


0004 

STAT 

0005 

CHKLH 

0006 

SPSHI 

0007 

FAAI 

0010 

SPSHR 

0011 

REQSAF 

0012 

SPOPI 

0013 

ERR0R2 

0014 

X 

0015 

NEI 

0016 

NORMM 

0017 

CROSS 

0020 

NORM 

0021 

DOT 

0022 

CROSSM 

0023 

ABSARC 

0024 

STV 

0025 

CHKTIM 

0026 

NERR2* 

0027 

ACOS 

0030 

TAN 

0031 

SIN 

0032 

SORT 

0033 

COS 

0034 

ASIN 

0035 

EXP 

0036 

NERR3$ 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 000110 101L 

0001 


000250 

118L 

0001 


000307 

126L 

0001 


000021 

15L 

0001 


000112 

154G 

0001 000125 161G 

0001 


000135 

165G 

0001 


000030 

17L 

0001 


000153 

174G 

0001 


000175 

203G 

0001 000217 2116 

0001 


000053 

22L 

0001 


000263 

226G 

0001 


000267 

232G 

0001 


000322 

245G 

0001 000331 254G 

0001 


000526 

255L 

0001 


000342 

2606 

0001 


000550 

26 OL 

0001 


000352 

26 7G 

0001 000073 27L 

0001 


000572 

275L 

0001 


000716 

50 OL 

0001 


000721 

600L 

0001 


000771 

707L 

0000 R 000104 A 

0000 

R 

000103 

ARNM 

0000 

R 

000102 

AROM 

0000 

R 

000101 

B 

0000 

R 

000100 

C 

0000 R 000070 CO 

0000 

R 

000061 

CURAV 

0000 

I 

000063 

I 

0000 

I 

000056 

ID 

0000 

I 

000057 

IE 

0000 I 000074 IJK 

0000 


000131 

INJP4 

0000 

R 

000001 

IPAV 

0000 

I 

000055 

IS 

0000 

I 

000050 

ISEN 

0003 000000 ISIZE 

0000 

I 

000060 

ISW 

0000 

I 

000062 

11 

0000 

I 

000064 

J 

0000 

I 

000065 

K 

0000 I 000076 M 

0000 

I 

OOOOOO 

MIN 

0000 

I 

000075 

N 

0015 

I 

OOOOOO 

NEI 

0000 

R 

000073 

OM 

0000 R 000005 P 

0000 

R 

000077 

PH 11 

0000 

R 

000067 

R 

0000 

R 

000066 

RAD 

0000 

R 

000105 

RRR 

OOOO R 000071 SI 

0004 

I 

OOOOOO 

STAT 

0000 

R 

000072 

TH 

0000 

R 

000043 

THETA 

0014 

R 

OOOOOO 

X 

0000 R 000002 XL 

0000 

R 

000024 

Z 














00101 

1* 


SUBROUTINE 

VOL (IL, 

IH,PAV,ACAV) 

1 15A0010 

OOOOOO 

00101 

2* 

C 




11500020 

OOOOOO 

00101 

3* 

C 




11500030 

OOOOOO 

00101 

4* 

C 

VOL 

****** 

A SUBROUTINE FOR CASPER ****** 

11500040 

OOOOOO 

00101 

5* 

C 


AUTHOR 

WILLIAM HENRY JONES 

11500050 

OOOOOO 

00101 

6* 

c 


VO 1-00 

06 APR 78 

11500060 

OOOOOO 

00101 

7* 

c 


V01-01 

30 AUG 78 

11510061 

OOOOOO 
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00101 

8* 

C 

V01-01A 06 FEB 79 

115A0062 

000000 

00101 

9* 

C 

V01-01B 08 FEB 80 PAX PROTOCOL ADJUSTMENTS 


000000 

00101 

10* 

c 

V01-01C 15 SEP 80 FUNCTION TYFE STATEMENT 


000000 

00101 

11* 

c 

V01-01D 20 APR 83 LITTLE FIXES 

V01-01D 

000000 

00101 

12* 

c 

001-0 IE 29 APR 83 LITTLE TYPO 

V01-01E 

000000 

00101 

13* 

c 


11500070 

000000 

00101 

14* 

c 

ARGUMENTS IN CASPER 'CACHE' MEMORY ****** 

11510074 

000000 

00101 

15* 

c 


11510076 

000000 

00101 

16* 

c 

ARGUMENT TYPE DIMENSION DESCRIPTION 

11500080 

000000 

00101 

17* 

c 



11510090 

000000 

00101 

18* 

c 

X REAL 1 TO ISIZE AEROELEMENT POSITIONS 

11500100 

000000 

00101 

19* 

c 

1 TO 3 

11500110 

000000 

00101 

20* 

c 


11500120 

000000 

00101 

21* 

c 

NEI INTEGER 1 TO ISIZE NEAREST NEIGHBOR LIST 

11500130 

000000 

00101 

22* 

c 

1 TO 5 

11500140 

000000 

00101 

23* 

c 


11500150 

000000 

00101 

24* 

c 

V REAL 1 TO ISIZE AEROELEMENT VOLUMES 

11510160 

000000 

00101 

25* 

c 

— THESE WILL BE REPLACED 

11500170 

000000 

00101 

26* 

c 

WITH ADJUSTED VOLUME 

11500180 

000000 

00101 

27* 

c 

ESTIMATES 

11500190 

000000 

00101 

28* 

c 

STAT INTEGER 1 TO ISIZE AEROELEMENT STATUS LIST 

11510192 

000000 

00101 

29* 

c 


11510194 

000000 

00101 

30* 

c 


11500200 

000000 

00101 

31* 

c 


11510202 

000000 

00101 

32* 

c 

ARGUMENTS PASSED IN SUBROUTINE CALL ****** 

11510203 

000000 

00101 

33* 

c 


11510204 

000000 

00101 

34* 

c 

ARGUMENT TYPE DIMENSION DESCRIPTION 

11510205 

000000 

00101 

35* 

c 



11510206 

000000 

00101 

36* 

c 

IL INTEGER SCALAR LOW AEROELEMENT ID LIMIT 

115A0210 

000000 

00101 

37* 

c 


115A0212 

000000 

00101 

38* 

c 

IH INTEGER SCALAR HIGH AEROELEMENT ID LIMIT 

115A0214 

000000 

00101 

39* 

c 


115A0216 

000000 

00101 

40* 

c 

PAV REAL SCALAR PREVIOUS AEROELEMENT SOLID 

115A0218 

000000 

00101 

41* 

c 

ANGLE AVERAGE 

115A0220 

000000 

00101 

42* 

c 


115A0222 

000000 

00101 

43* 

c 

ACAV REAL SCALAR ACCUMULATION SLOT FOR ALL 

115A0224 

000000 

00101 

44* 

c 

SOLID ANGLES CALCULATED 

115A0226 

000000 

00101 

45* 

c 

BY THE EXECUTION OF THIS 

115A0228 

000000 

00101 

46* 

c 

ROUTINE 

115A0230 

000000 

00101 

47* 

c 


11500250 

000000 

00101 

48* 

c 


11500260 

000000 

00101 

49* 

c 


11500270 

000000 

00101 

30* 

c 

DESCRIPTION 

11500280 

000000 

00101 

51* 

c 


11500290 

000000 

00101 

52* 

c 

THIS ROUTINE CALCULATES NEW ESTIMATED VOLUMES FOR ALL AER0ELEMENTS1 1500300 

000000 

00101 

53* 

c 

ACCORDING TO FIXED RULES. THE VOLUME ESTIMATES WILL NOT (IN ALL 

11500310 

000000 

00101 

54* 

c 

PROBABILITY) ADD UP TO EQUAL THE TOTAL VOLUME OF THE PROBLEM AND 

11500320 

000000 

00101 

55* 

c 

MUST BE ADJUSTED FOR THIS OUTSIDE THIS ROUTINE. 

11500330 

000000 

00101 

56* 

c 


11500340 

000000 

00101 

57* 

c 

THE VOLUMES CALCULATED BY THIS ROUTINE ARE BASED ON A SPHERE 

11500350 

000000 

00101 

58* 

c 

WHOSE RADIUS IS EQUAL TO THE AVERAGE DISTANCE TO THE AEROELEMENT 'SI 1500360 

000000 

00101 

59* 

c 

FIVE NEAREST NEIGHBORS, THIS ESTIMATE IS ADJUSTED BY THE SOLID 

11500370 

000000 

00101 

60* 

c 

ANGLE SUBTENDED BY THE FIVE NEAREST NEIGHBORS. THE ADJUSTMENT 

11500380 

000000 

00101 

61* 

c 

GIVES MORE VOLUME TO AERQELEHENTS WHOSE SOLID ANGLE RESULTS ARE 

11500390 

000000 

00101 

62* 

c 

LESS THAN AVERAGE. 

11500400 

000000 

00101 

63* 

c 


11510401 

000000 

00101 

64* 

c 

IF A PARTICULAR AEROELEMENT IS IDENTIFIED AS A 'BOUNDARY' 

11510402 

000000 

00101 

65* 

c 

AEROELEMENT (BIT *11 OF STATUS WORD SET) THE FOLLOWING 

11510403 

000000 

00101 

66* 

c 

ADJUSTMENTS ARE MADE. ITS SOLID ANGLE RESULT WILL AUTOMATICALLY 

11510404 

000000 

00101 

67* 

c 

BE DOUBLED (SINCE IT HAS ONLY HALF A HORIZON FOR NEIGHBORS) 

11510405 

000000 

00101 

68* 

c 

AND ITS VOLUME ESTIMATE IS HALVED (SINCE IT HAS ONLY HALF A 

11510406 

000000 

00101 

69* 

c 

SPHERE TO RESIDE IN, THIS PUTS BOUNDARY ELEMENTS ON EQUAL 

11510407 

000000 

00101 

70* 

c 

FOOTING WITH NORMAL ELEMENTS PROVIDED THE BOUNDARY IS QUASI- 

11510408 

000000 

00101 

71* 

c 

FLAT AT THE BOUNDARY ELEMENT SITE WHEN VIEWED IN THE SCALE 

11510409 

000000 

00101 

72* 

c 

OF THE BOUNDARY ELEMENT. 

11510410 

000000 

00101 

73* 

c 


11510411 

000000 

00101 

74* 

c 

DURING THE EXECUTION OF THE SUBROUTINE THE SUM OF ALL SOLID 

1 15A0420 

000000 

00101 

75* 

c 

ANGLES CALCULATED (FOR AEROELEMENTS IN THE RANGE 'IL' TO 'IH') 

115A0425 

000000 

00101 

76* 

c 

IS ACCUMULATED, ON EXIT THE SUM IS LOADED INTO SLOT 'ACAV' 

1 15A0430 

000000 

00101 

77* 

c 

TO AID THE CALLER IN MAKING ANY NECESSARY ADJUSTMENTS IN 'PAV'. 

115A0435 

000000 

00101 

78* 

c 


11500450 

000000 

00101 

79* 

c 


11500460 

000000 
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00101 

80* 

C 


11500470 

000000 

00101 

81* 

c 

THE CALCULATION OF SOLID ANGLE 

V01-01D 

000000 

00101 

82* 

c 


V01-01B 

000000 

00101 

83* 

c 

THE SOLID ANGLE SUBTENDED BY THE FIVE NEAREST NEIGHBORS IS 

V01-01D 

000000 

00101 

84* 

c 

CALCULATED BY SUMMING THE CONTRIBUTIONS OF SPHERICAL TRIANGLES. 

V01-01D 

000000 

00101 

85* 

c 

THREE SPHERICAL TRIANGLES ARE IDENTIFIED: ONE SUBTENDED BY 

V01-01D 

000000 

00101 

86* 

c 

NEIGHBORS If 2 f AND 3f ONE SUBTENDED BY NEIGHBORS If 3f AND 

V01-01D 

000000 

00101 

87* 

c 

4f AND ONE SUBTENDED BY NEIGHBORS If 4f AND 5. THE SPHERICAL 

V01-01D 

000000 

00101 

88* 

c 

TRIANGLES ARE PROJECTED ONTO A SPHERE OF UNIT RADIUS AND ARE 

V01-01D 

000000 

00101 

89* 

c 

IDENTIFIED THROUGH A NEAREST NEIGHBOR LIST THAT HAS BEEN RE- 

V01-01D 

000000 

00101 

90* 

c 

ORDERED TO MAKE A MONOTONICALLY INCREASING ORIENTATION OF NEIGH- 

V01-01B 

000000 

00101 

91* 

c 

BORS WHEN VIEWED FROM A POLE ESTABLISHED BY THE FIRST NEIGHBOR. 

V01-01D 

000000 

00101 

92* 

c 


V01-01D 

000000 

00101 

93* 

c 

THE AREA OF EACH SPHERICAL TRIANGLE IS ESTABLISHED BY DECOM- 

V01-01D 

000000 

00101 

94* 

c 

POSING IT INTO TWO SPHERICAL RIGHT TRIANGLES. IT CAN BE SHOWN 

V01-01D 

000000 

00101 

95* 

c 

THAT THE AREA OF A SPHERICAL RIGHT TRIANGLE OF BASE THETA. 1 AND 

V01-01D 

000000 

00101 

96* 

c 

HEIGHT PHI » 1 IS THE INTEGRAL 

V01-01D 

000000 

00101 

97* 

c 


V01-01D 

000000 

00101 

98* 

c 

THETA. 1 A*SIN(THETA) 

V01-01D 

000000 

00101 

99* 

c 

AREA = I D. THETA 

V01-01D 

000000 

00101 

100* 

c 

0 SORT ( 1 + ( A*S I N ( THET A ) ) **2 ) ) 

V01-01D 

000000 

00101 

101* 

c 


V01-01D 

000000 

00101 

102* 

c 

TAN(PHI.l) 

V01-01D 

000000 

00101 

103* 

c 

WHERE A = 

V01-01D 

000000 

00101 

104* 

c 

SIN(THETA.l) 

V01-01D 

000000 

00101 

105* 

c 


V01-01D 

000000 

00101 

106* 

c 


V01-01D 

000000 

00101 

107* 

c 

THIS CAN BE INTEGRATED BY THE SUBSTITUTION 

V01-01D 

000000 

00101 

108* 

c 


V01-01D 

000000 

00101 

109* 

c 

X = B # COS( THETA) 

V01-01D 

000000 

00101 

no* 

c 


V01-01D 

000000 

00101 

111* 

c 

WHERE B = SORT ( ( A**2 ) / ( 1 + ( A**2 ) ) ) 

V01-01D 

000000 

00101 

112* 

c 


V01-01D 

000000 

00101 

113* 

c 


V01-01B 

000000 

00101 

114* 

c 

THIS INTEGRATION GIVES THE RESULT 

V01-01D 

000000 

00101 

115* 

c 


V01-01D 

000000 

00101 

116* 

c 

AREA = ASIN(B) - ASIN(B*COS< THETA. 1 ) ) 

V01-01B 

000000 

00101 

117* 

c 


V01-01D 

000000 

00101 

118* 

c 


V01-01D 

000000 

00101 

119* 

c 

AN ANOMALLY OF COMPUTATION EXISTS AS PHI.l APPROACHES PI/2. 

V01-01D 

000000 

00101 

120* 

c 

IN THIS EVENT f B IS SET TO THE LIMIT OF 1.0. ALTHOUGH A TENDS 

V01-01D 

000000 

00101 

121* 

c 

TO INFINITY AS THETA. 1 TENDS TO PI» A COMPUTATIONAL ANOMALLY IS 

V01-01D 

000000 

00101 

122* 

c 

AVOIDED BY CALCULATING B AS 

V01-01D 

000000 

00101 

123* 

c 


V01-01D 

000000 

00101 

124* 

c 

TAN(PHI . 1 )**2 

V01-01D 

000000 

00101 

125* 

c 

B = SORT ( ) 

V01-01B 

000000 

00101 

126* 

c 

(SIN(THETA. 1 )**2) P (TAN(PHI . 1)**2) 

V01-01D 

000000 

00101 

127* 

c 


V01-01D 

000000 

00101 

128* 

c 


V01-01D 

000000 

00101 

129* 

c 


V01-01D 

000000 

00101 

130* 

c 

THE CALCULATION OF A SPHERICAL TRIANGLE PROCEEDS IN THE FOLLOWING 

V01-01B 

000000 

00101 

131* 

c 

MANNER, 

V01-01D 

000000 

00101 

132* 

c 


V01-01D 

000000 

00101 

133* 

c 

1. A VECTOR TO THE FIRST NEIGHBOR f V.NIf IS ESTABLISHED. THIS 

V01-01D 

000000 

00101 

134* 

c 

VECTOR DEFINES AN ARBITRARY X' AXIS AND THE LOCATION OF AN 

V01-01D 

000000 

00101 

135* 

c 

ARBITRARY 0 LONGITUDEf 0 LATITUDE POINT ON THE UNIT SPHERE. 

V01-01D 

000000 

00101 

136* 

c 


V01-01B 

000000 

00101 

137* 

c 

2. A VECTOR TO NEIGHBOR N (N=2f 3» 4)f V.NN, IS ESTABLISHED, 

V01-01B 

000000 

00101 

138* 

c 


V01-01D 

000000 

00101 

139* 

c 

3. A NORTH POLE <Z' AXIS) IS ESTABLISHED AS 

V01-01D 

000000 

00101 

140* 

c 


V01-01D 

000000 

00101 

141* 

c 

V.N1 X V.NN 

V01-01D 

000000 

00101 

142* 

c 

V.NP = 

V01-01B 

000000 

00101 

143* 

c 

MAG ( V.N1 X V.NN ) 

V01-01B 

000000 

00101 

144* 

c 


V01-01D 

000000 

00101 

145* 

c 

4. THE EAST LONGITUDE OF NEIGHBOR N IS ESTABLISHED AS 

V01-01D 

000000 

00101 

146* 

c 


V01-01D 

000000 

00101 

147* 

c 

THETA. N = ACOS ( V.N1 * V.NN ) 

V01-01D 

000000 

00101 

148* 

c 


V01-01D 

000000 

00101 

149* 

c 

5. A VECTOR TO NEIGHBOR M (M=NP1)f V.NMf IS ESTABLISHED, 

V01-01D 

000000 

00101 

150* 

c 


V01-01D 

000000 

00101 

151* 

c 

6. THE HEIGHT OF THE SPHERICAL TRIANGLES IS ESTABLISHED AS 

V01-01D 

000000 
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00101 

152* 

C 



V01-01D 

000000 

00101 

153* 

c 


PSI.l = ACOS ( V.NP * V.NM ) 

V01-01D 

000000 

00101 

154* 

c 


PHI. 1 = ABS ( PI/2 - PSI.l ) 

V01-01D 

000000 

00101 

155* 

c 



V01-01D 

000000 

00101 

156* 

c 

7. 

THE VECTOR TO NEIGHBOR M IS PROJECTED INTO THE EQUATORIAL 

V01-01B 

000000 

00101 

157* 

c 


<X-Y> PLANE AS 

VQ1-01D 

000000 

00101 

158* 

c 



V01-Q1D 

000000 

00101 

159* 

c 


V.EM = V.NP X ( V.NH X V.NP ) 

V01-01D 

000000 

00101 

160* 

c 



V01-01D 

000000 

00101 

161* 

c 


AND IS NORMALIZED. 

V01-01D 

000000 

00101 

162* 

c 



V01-01D 

000000 

00101 

163* 

c 

8. 

THE LENGTH OF A RIGHT SPHERICAL TRIANGLE (WHOSE BASE IS THE 

V01-01D 

000000 

00101 

164* 

c 


EQUATOR) RUNNING FROM 0 LONGITUDE TO NEIGHBOR h IS FOUND AS 

V01-01D 

oooooo 

00101 

165* 

c 



V01-01D 

000000 

00101 

1 66* 

c 


THETA. M = ACOS ( V.N1 * V.EM ) 

V01-01D 

oooooo 

00101 

167* 

c 



V01-01D 

oooooo 

00101 

168* 

c 

9. 

THE LENGTH OF A RIGHT SPHERICAL TRIANGLE (WHOSE BASE IS THE 

V01-01D 

oooooo 

00101 

169* 

c 


EQUATOR) RUNNING FROM NEIGHBOR N TO NEIGHBOR M IS FOUND AS 

V01-01D 

oooooo 

00101 

170* 

c 



V01-01D 

oooooo 

00101 

171* 

c 


THETA. NM = ACOS ( V.EM * V.NN ) 

V01-01D 

oooooo 

00101 

172* 

c 



V01-01D 

oooooo 

00101 

173* 

c 

10. 

THE SENSE OF THE ROTATIONS FROM 0 LONGITUDE TO NEIGHBOR N* 

V01-01D 

oooooo 

00101 

174* 

c 


FROM 0 LONGITUDE TO NEIGHBOR Mr AND FROM NEIGHBOR N TO 

V01-01D 

oooooo 

00101 

175* 

c 


NEIGHBOR M IS ESTABLISHED AS 

V01-01D 

oooooo 

00101 

176* 

c 



V01-01D 

oooooo 

00101 

177* 

c 


SENSE. ON = SIGN ( V.NP * ( V.N1 X V.NN ) ) 

V01-01D 

oooooo 

00101 

178* 

c 


SENSE. OM = SIGN ( V.NP * ( V.N1 X V.EM ) ) 

V01-01D 

oooooo 

00101 

179* 

c 


SENSE. NM = SIGN ( V.NP * ( V.NN X V.EM ) ) 

V01-01D 

oooooo 

00101 

180* 

c 



V01-01B 

oooooo 

00101 

181* 

c 

11. 

THE AREA (SOLID ANGLE) OF TWO SPHERICAL RIGHT TRIANGLES IS 

V01-01D 

oooooo 

00101 

182* 

c 


CALCULATED USING THE FORMULATION PREVIOUSLY DESCRIBED. THE 

V01-01D 

oooooo 

00101 

183* 

c 


FIRST TRIANGLE RUNS FROM 0 LONGITUDE TO NEIGHBOR M AND THE 

V01-01D 

oooooo 

00101 

184* 

c 


SECOND TRIANGLE RUNS FROM NEIGHBOR N TO NEIGHBOR M. THE 

V01-01B 

oooooo 

00101 

185* 

c 


BASE OF EACH TRIANGLE RUNS ALONG THE EQUATOR. THUS* 

V01-01D 

oooooo 

00101 

186* 

c 



V01-01D 

oooooo 

00101 

187* 

c 


AR.OM = AREA ( THETA. M» PHI.l ) 

V01-01B 

oooooo 

00101 

188* 

c 


AR.NM * AREA ( THETA. NM* PHI.l ) 

V01-01D 

oooooo 

00101 

189* 

c 



V01-01D 

oooooo 

00101 

190* 

c 

12. 

THE SOLID ANGLE CONTRIBUTION SUBTENDED BY NEIGHBORS N AND 

V01-01D 

oooooo 

00101 

191* 

c 


M IS CALCULATED ACCORDING TO THE FOLLOWING RULES. 

V01-01D 

oooooo 

00101 

192* 

c 



V01-01D 

oooooo 

00101 

193* 

c 


IF SENSE. OM AND SENSE. NM ARE OF THE SAME SIGN* THEN 

V01-01D 

oooooo 

00101 

194* 

c 



V01-01D 

oooooo 

00101 

195* 

c 


ANGLE = ABS ( AR.OM - AR.NM ) 

V01-01D 

oooooo 

00101 

196* 

c 



V01-01D 

oooooo 

00101 

197* 

c 


ELSE 

V01-010 

oooooo 

00101 

198* 

c 



V01-01D 

oooooo 

00101 

199* 

c 


IF SENSE. ON AND SENSE. NM ARE OF THE SAME SIGN* THEN 

V01-01D 

oooooo 

00101 

200 * 

c 



V01-01D 

oooooo 

00101 

201* 

c 


ANGLE = ABS ( 2*PI - ( AR.OM + AR.NM ) ) 

V01-01D 

oooooo 

00101 

202* 

c 



V01-01D 

oooooo 

00101 

203* 

c 


ELSE 

V01-01D 

oooooo 

00101 

204* 

c 



V01-01D 

oooooo 

00101 

205* 

c 


ANGLE = ABS ( AR.OM + AR.NM ) 

V01-01D 

oooooo 

00101 

206* 

c 



V01-01D 

oooooo 

00101 

207* 

c 


END. IF 

V01-01D 

oooooo 

00101 

208* 

c 



VO 1-0 ID 

oooooo 

00101 

209* 

c 


END. IF 

V01-01D 

oooooo 

00101 

210* 

c 



V01-01D 

oooooo 

00101 

211* 

c 



VQ1-Q1D 

oooooo 

00101 

212* 

c 



V01-01B 

oooooo 

00101 

213* 

c 



V01-01D 

oooooo 

00101 

214* 

c 



V01-01D 

oooooo 

00101 

215* 

c 

REQUIRED SUBROUTINES 

11500480 

oooooo 

00101 

216* 

c 



11500490 

oooooo 

00101 

217* 

c 

010 

ABSARC 

11500500 

oooooo 

00101 

218* 

c 

020 

CROSSM 

11500510 

oooooo 

00101 

219* 

c 

021 

CR0S1M 

11500520 

oooooo 

00101 

220* 

c 

023 

D0T1 

11500530 

oooooo 

00101 

221* 

c 

025 

N0RM1M 

1150054 0 

oooooo 

00101 

222* 

c 



11500550 

oooooo 

00101 

223* 

c 



11500560 

oooooo 
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00101 

224* 

C 



11500570 

000000 

00101 

225* 

C 

ERRORS 


11500580 

000000 

00101 

226* 

C 



11500590 

000000 

00101 

227* 

C 

NONE 


11500600 

000000 

00101 

228* 

c 



11500610 

000000 

00101 

229* 

c 



11500620 

000000 

00101 

230* 

c 



11500630 

000000 

00103 

231* 


COMMON /ISIZEC/ISIZE 


11500640 

000000 

00104 

232* 


REAL PAV»ACAV 


115A0680 

000000 

00105 

233* 


REAL IPAV 

8 

V01-01D 

000000 

00106 

234* 


REAL XL (3) 

8 

V01-01D 

000000 

00107 

235* 


REAL P(3»5> 

8 

V01-01D 

000000 

00110 

236* 


REAL Z(3*5> 

8 

V01-01D 

000000 

00111 

237* 


REAL THETA<5) 

8 

V01-01D 

000000 

00112 

238* 


INTEGER ISEN(5) 

8 ROTATION SENSE VALUES 

V01-01D 

000000 

00113 

239* 


INTEGER IL*IH*IS»ID*IE 


115A0682 

000000 

00114 

240* 


INTEGER STAT 



000000 

00115 

241* 


DATA ID/115/ 


115A0684 

000000 

00117 

242* 


DATA IE/1/ 


115A0686 

000000 

00121 

243* 


ISW=1 

8 INTERNAL RETURN SWITCH 

11500710 

000000 

00122 

244* 


CURAV=0.0 

8 NEXT AVERAGE ACCUMULATOR 

11500720 

000001 

00123 

245* 


IPAV=1.0/PAV 

8 FAST DIVIDES 

11500730 

000002 

00124 

246* 


CALL CHKLH (IL* IH*IS*ID*IE) 

8 GO CHECK ID RANGE 

115A0740 

000005 

00125 

247* 


IF (IS) 14*17*14 

e VALID ID RANGE ? 

115A0745 

000014 

00130 

248* 

14 

I1=IL-IS 

8 YES* INIT ID DO LOOP 

115A0750 

000016 

00131 

249* 

15 

I1=I1+IS 

8 NEXT AEROELEMENT ID 

115A0755 

000021 

00132 

250* 


IF (IS*(I1-IH)> 101*101*17 

8 END OF LOOP YET ? 

115A0760 

000023 

00135 

251* 

17 

ACAV=CURAV 

8 YES* END OF ROUTINE 

115A0765 

000030 

00136 

252* 


CALL SPSHI (0) 

8 END-OF-ARGUMENTS FOR SAF 


000031 

00137 

253* 


CALL SPSHI (0) 

e REQUEST 


000034 

00140 

254* 


CALL PAAI (4*1) 

8 PAX SUPPLIED ACCUMULATOR 


000037 

00141 

255* 


GO TO (22*27) * I 

8 IS IT NON-LITERAL ? 


000043 

00142 

256* 

22 

CALL SPSHR (CURAV) 

8 YES* SEND OUR SUB-TOTAL 


000053 

00143 

257* 


CALL SPSHI (1) 

8 


000055 

00144 

258* 


CALL SPSHI (7) 

8 LENGTH OF PACKAGE 


000060 

00145 

259* 


CALL REGSAF (115*1) 

e ASK FOR OUR ONLY SAF 


000063 

00146 

260* 


RETURN 

8 DONE 


000067 

00147 

261* 

27 

CALL SPOPI (I) 

8 OOPS* PAX MUST GIVE A 


000073 

00150 

262* 


CALL SPOPI (I) 

8 NON-LITERAL 


000075 

00151 

263* 


CALL ERR0R2 (115*5) 

8 


000100 

00152 

264* 


RETURN 

8 

115A0770 

000104 

00152 

265* 

C 



11500790 

000104 

00152 

266* 

C 

ENTRY TO VOLUME* SOLID ANGLE CALCULATOR 

11500800 

000104 

00152 

267* 

c 



11500810 

000104 

00152 

268* 

c 

11 MUST BE A LEGAL AEROELEMENT ID. 


11500820 

000104 

00152 

269 * 

c 

ISW MUST BE A LEGAL INTERNAL JUMP 

SWITCH. 

11500830 

000104 

00152 

270* 

c 

IPAV MUST BE THE AVERAGE (DATUM) SOLID ANGLE INVERSE. 

11500840 

000104 

00152 

271* 

c 



11500850 

000104 

00152 

272* 

c 



11500860 

000104 

00153 

273* 

101 

DO 102 1=1*3 

8 PICKUP TARGET ELEMENT'S 

V01-01D 

000112 

00156 

274* 

102 

XL(I)=X(I1*I) 

8 POSITION IN SPACE 

V01-01D 

000112 

00160 

275* 


DO 104 1=1*5 

8 MAKE AND SAVE VECTORS TO 

V01-01D 

000125 

00163 

276* 


J=NEI(I1* I) 

8 NEAREST NEIGHBORS REFERENCE 11500880 

000125 

00164 

277* 


DO 104 K=1 *3 

8 TO BASE AEROELEMENT 

11500890 

000135 

00167 

278* 

104 

P(K*I)=X(J*K) -XL ( K ) 

8 

V01-01D 

000135 

00172 

279 * 


RAD=0.0 

8 

11500910 

000147 

00173 

280* 


DO 108 1=1*5 

8 NORMALIZE VECTORS* ACCUM 

11500920 

000153 

00176 

281* 


CALL NORMM (P(1*I),R> 

8 MAGNITUDES 

V01-01E 

000153 

00177 

282* 

108 

RAO=RAD+R 

8 

11500940 

000160 

00201 

283* 


RAD=4 . 1887902* ( 0 . 5*RAD)**3 

8 CALC VOLUME ESTIMATE 

V01-01D 

000164 

00201 

284* 

C 



11500960 

000164 

00201 

285* 

c 

NON-FOLDBACK ORDERING STARTS HERE 


11500970 

000164 

00201 

286* 

c 



11500980 

000164 

00202 

287* 


DO 112 1=2*5 

e CREATE THE ORDERING 

11500990 

000175 

00205 

288* 


CALL CROSS (P(1*1>*P(1*I)*Z(1»I>) 

8 VECTORS AND NORMALIZE 

V01-01D 

000175 

00206 

289* 

112 

CALL NORM (Z(1»I>) 

8 THEM 

V01-01D 

000205 

00210 

290* 


DO 119 1=3*5 

8 CALCULATE RELATIVE ROTATIONSl 1501010 

000217 

00213 

291* 


CALL DOT (Z(1*2)*Z(1»I)*C0) 

8 OF Z3 TO Z5 REFERENCED TO 

V01-01D 

000217 

00214 

292* 


CALL CROSSM (Z(1*2)*Z(1*I)/Z(1*1). 

SI) 8 Z2 AND STORE IN THETA 

V01-01D 

000225 

00215 

293* 


CALL DOT (P(l»l) »Z(1»1) *TH) 

8 

V01-01D 

000235 

00216 

294* 


IF (TH) *118*118 

8 

11501050 

000242 

00221 

295* 


SI=-SI 

8 

11501060 

000245 

00222 

296* 

118 

CALL ABSARC (TH*SI*CO) 

8 

11501070 

000250 

00223 

297* 

119 

THETA(I)=TH 

8 

11501080 

000254 

00225 

298* 


DO 130 1=1*3 

8 REORDER VECTORS IN INCREASE 

-11501090 

000263 

00230 

299* 


MIN=10000.0 

8 ING VALUES OF THETA BY A 

11501100 

000263 

00231 

300* 


DO 126 J=3*5 

8 SIMPLE MINIMUM SEARCH 

11501110 

000267 

00234 

301* 


If (THETA(J)-MIN) , *126 

8 

11501120 

000267 

00237 

302* 


MIN=THETA( J) 

8 

11501130 

000275 

00240 

303* 


K=J 

8 

11501140 

000304 

00241 

304* 

126 

CONTINUE 

8 

11501150 

000310 

00243 

305* 


THETA(K)=10001 .0 

8 DON'T PICK THIS AGAIN 

11501160 

000310 


Listing 15.— Continued. 



00244 

306* 


DO 129 J=1 f 3 

9 

TRANSFER THE VECTOR 

11501170 

000313 

00247 

307* 

129 

Z(J,I)=P(J,K) 

9 


V01-01D 

000322 

00251 

308* 

130 

CONTINUE 

e 


11501190 

000331 

00253 

309* 


DO 134 1=1,3 

e 

PUT VECTORS BACK IN NEW 

11501200 

000331 

00256 

310* 


K=I+2 

9 

ORDER 

11501210 

000331 

00257 

311* 


DO 134 J=l,3 

9 


11501220 

000334 

00262 

312* 

134 

P(J,K)=Z(J,I) 

9 


V01-01D 

000342 

00262 

313* 

C 




11501240 

000342 

00262 

314* 

C 

THIS SECTION CALCULATES THE SOLID ANGLE, OM, SUBTENDED BY THE 

11501250 

000342 

00262 

315* 

c 

FIVE NEAREST NEIGHBORS. THE FIRST 

NEAREST NEIGHBOR IS USED AS 

11501260 

000342 

00262 

316* 

c 

A POLE POSITION. 



11501270 

000342 

00262 

317* 

c 




11501280 

000342 

00265 

318* 


0M=0.0 

9 

SEE TEXT FOR THEORY 

11501290 

000346 

00266 

319* 


DO 600 IJK=2,4 

9 

ACCUMULATE SOLID ANGLE 

V01-01B 

000352 

00271 

320* 


N=IJK 

9 

CONTRIBUTION FROM EACH OF 

V01-01D 

000352 

00272 

321* 


M=IJK+1 

9 

THREE SPHERICAL TRIANGLES 

V01-01D 

000354 

00273 

322* 


CALL CROSS <P(lfl),P(l,N),Z(l,l)> 

9 

ESTABLISH A NORMALIZED 

V01-01D 

000356 

00274 

323* 


CALL NORM <Z(1,1» 

9 

NORTH POLE IN Z.l 

V01-01B 

000370 

00275 

324* 


CALL DOT (P(1,1),P(1,N) ,C0) 

9 

CALCULATE EAST LONGITUDE 

V01-01B 

000373 

00276 

325* 


THETA ( N ) = ACOS ( CO ) 

9 

OF NEIGHBOR N 

V01-01D 

000403 

00277 

326* 


CALL DOT (Z(l,l) ,P< 1,M) ,C0) 

9 

CALCULATE THE HEIGHT OF THE 

V01-01B 

000410 

00300 

327* 


PH I 1 =ABS ( 1 . 5707963- ACOS ( CO ) ) 

9 

SPHERICAL TRIANGLES 

V01-01B 

000422 

00301 

328* 


IF (ABS(PHI1-1. 5707963)-!. 0E-03) 500,500,225 9 ANGMALLY ? 

V01-01D 

000430 

00304 

329* 

225 

CALL CROSS (P<l,h)»Z(l»l),Z(l»5>) 

9 

NO, PROJECT VECTOR TO 

V01-01D 

000435 

00305 

330* 


CALL CROSS (Z(1,1),Z(1,5),Z<1,2)) 

9 

NEIGHBOR M INTO EQUATORIAL 

V01-01D 

000445 

00306 

331* 


CALL NORM <Z(1,2>> 

9 

PLANE AND NORMALIZE IT 

V01-01B 

000452 

00307 

332* 


CALL DOT (P<1,1),Z(1,2),C0) 

9 

LONGITUDE (EAST OR WEST) OF 

V01-01D 

000455 

00310 

333* 


THETA (M)=ACOS(CO> 

9 

NEIGHBOR M 

V01-01B 

000462 

00311 

334* 


CALL DOT (P(1,N),Z(1,2),C0) 

9 

LONGITUDE FROM NEIGHBOR N 

V01-01D 

000467 

00312 

335* 


THET A ( 1 ) = ACOS ( CO ) 

9 

TO NEIGHBOR M 

V01-01B 

000476 

00313 

336* 


ISEN(1)=1 

9 

ESTABLISH ROTATIONAL SENSE 

V01-01D 

000502 

00314 

337* 


CALL CROSS (P(1,N)»Z(1,2),Z(1,4)> 

9 

FROM NEIGHBOR N TO 

V01-01D 

000504 

00315 

338* 


CALL DOT (Z(l,l) ,Z(1,4) ,CG) 

9 

NEIGHBOR M 

V01-01D 

000513 

00316 

339* 


IF (CO) 254,255,255 

9 


V01-01D 

000520 

00321 

340* 

254 

ISEN<1)=-1 

9 


V01-01D 

000523 

00322 

341* 

255 

IS£N(N)=1 

9 

ESTABLISH ROTATIONAL SENSE 

V01-01B 

000526 

00323 

342* 


CALL CROSS <P(1,1),P(1,2),Z(1,4)> 

9 

FROM 0 LONGITUDE TO 

V01-01D 

000530 

00324 

343* 


CALL DOT (Z(1,1),Z(1,4),C0) 

9 

NEIGHBOR N 

V01-01D 

000535 

00325 

344* 


IF (CO) 259,260,260 

9 


V01-01D 

000542 

00330 

345* 

259 

ISEN(N)=-1 

9 


V01-01D 

000545 

00331 

346* 

260 

ISEN(M)=1 

9 

ESTABLISH ROTATIONAL SENSE 

V01-01D 

000550 

00332 

347* 


CALL CROSS <P(1,1),Z<1,2),Z(1,4>> 

9 

FROM 0 LONGITUDE TO 

V01-01B 

000552 

00333 

348* 


CALL DOT (Z(l»l > ,Z< 1,4) ,C0> 

9 

NEIGHBOR M 

V01-01D 

000557 

00334 

349* 


IF (CO) 264,275,275 

9 


V01-01D 

000564 

00337 

350* 

264 

ISEN(H)=-1 

9 


V01-01D 

000567 

00340 

351* 

275 

C=(TAN(PHI1 ) )**2 

9 

COMMON TO BOTH TRIANGLES 

V01-01D 

000572 

00341 

352* 


B=SQRT(C/( ( (SIN(THETA(H) ) )**2)+C) > 

9 

AREA FROM 0 LONGITUDE TO 

V01-01D 

000576 

00342 

353* 


AR0M=ABS( ASIN(B)-ASIN(B*COS(THETA(M) ) ) ) 9 NEIGHBOR M 

V01-01D 

000615 

00343 

354* 


B=SQRT(C/( ( (SIN(THETAd) ) )**2>+C) ) 

9 

AREA FROM NEIGHBOR N TO 

V01-01D 

000636 

00344 

355* 


ARNM=ABS(ASIN(B)-ASIN(B*C0S(THETA<1) ) )) 0 NEIGHBOR h 

V01-01B 

000652 

00345 

356* 


A=ABS ( AROM-ARNM ) 

9 

ASSUME SIMPLEST CASE 

V01-01D 

000671 

00346 

357* 


IF (ISEN(1)*ISEN(H)) 302,600,600 

9 

GOOD ASSUMPTION ? 

V01-01D 

000674 

00351 

358* 

302 

A=ABS ( AROM+ARNM ) 

9 

NO, WE WILL NEED THIS 

V01-01D 

000700 

00352 

359* 


IF (ISEN(1)*ISEN(N) ) 600,304,304 

9 

GOING OVER THE POLE ? 

V01-01D 

000704 

00355 

360* 

304 

A=ABS(6.2831854-A) 

9 

YES, WE CALC'D COMPLEMENT 

VO 1-0 ID 

000711 

00356 

361* 


GO TO 600 

9 

JOIN AFTER ANOMALLY HANDLER 

V01-01D 

000714 

00357 

362* 

500 

A=ABS(THETA(N) ) 

9 

PROPORTION OF HEMISPHERE 

V01-01D 

000716 

00360 

363* 

600 

OM=OMTA 

9 

ACCUMULATE SOLID ANGLE 

V01-01B 

000721 

00360 

364* 

C 




11501580 

000721 

00360 

365* 

C 

ACCUMULATE AVERAGE AND STORE REVISED VOLUME ESTIMATE 

11501590 

000721 

00360 

3 66* 

C 




11501600 

000721 

00362 

367* 


OM=ABS(OM) 

9 

RECOGNIZE ALWAYS POSITIVE 

11501610 

000725 

00363 

368* 


CURAV=CURAV+OM 

9 

ACCUM AVERAGE FOR NEXT TIME 

11501620 

000727 

00364 

369* 


RRR=RAD*EXP( 1 .0-0M*IPAV) 

9 

ADJUST VOLUME BY HORIZON 

11511630 

000731 

00365 

370* 


IF (AND(STATdl) ,2048) ) 704,707,704 9 

BR IF NOT BOUNDARY ELEMENT 

V01-01D 

000742 

00370 

371* 

704 

CURAV=CURAV+OM 

9 

PUT BOUNDARY ELEMENTS ON 

V01-01D 

000750 

00371 

372* 


OM=OM+OM 

9 

EQUAL TERMS 

11511636 

000753 

00372 

373* 


RRR=0 . 5*RAD*EXP ( 1 . 0-0M*IPAV ) 

9 

REVISE VOLUME ESTIMATE 

11511640 

000756 

00373 

374* 

707 

CALL STV (I1,RRR) 

9 

SAVE VOLUME ESTIMATE 

V01-01D 

000771 

00374 

375* 


CALL CHKTIM <IL,IH,I1) 

9 

KEEP AN EYE ON THE TIME 

V01-01D 

000774 

00375 

376* 


GO TO 15 

9 

NO ALTERNATE RETURNS YET 

115A1650 

001001 

00376 

377* 


END 



11501660 

001037 


END FOR 

> 


Listing 15. — Concluded. 



8F0R?MS CASPER1.VSUMD 
FOR 4R1 E -04/17/84-12t56:31 ( 1 r> 
>8E0F 


SUBROUTINE VSUM ENTRY POINT 000121 


STORAGE USED: CODE(l) 000143? DATA(O) 000021? BLANK C0MM0N(2) 000000 


EXTERNAL REFERENCES (BLOCK? NAME) 

0003 CHKLH 

0004 CHKTIM 

0005 V 

0006 SPSHI 

0007 PAAI 

0010 SPSHR 

0011 REQSAF 

0012 SPOPI 

0013 ERR0R2 

0014 NERR2* 

0015 NERR3* 


STORAGE ASSIGNMENT (BLOCK? TYPE? RELATIVE LOCATION? NAME) 


0001 

000020 

117G 

0001 

000056 

24L 

0001 

000076 29L 

0001 

000110 

32L 

0000 

I 000003 I 

0000 

I 000001 

ID 

0000 

I 000002 

IE 

0000 

000012 INJF* 

0000 

I 000000 

IS 

0005 

R OOOOOO V 


00101 

1* 


SUBROUTINE VSUM <IL?IH?VL> 



10000010 

OOOOOO 

00101 

2* 

C+ 




10000020 

OOOOOO 

00101 

3* 

C 




10000030 

OOOOOO 

00101 

4* 

C 

VSUM ****** A SUBROUTINE 

FOR CASPER ****** 

10000040 

OOOOOO 

00101 

5* 

c 

AUTHOR WILLIAM HENRY JONES 

10000050 

OOOOOO 

00101 

6* 

c 

VO 1-00 02 FEB 

79 


10000060 

OOOOOO 

00101 

7* 

c 

V01-00A 06 FEB 

80 

PAX PROTOCOL ADJUSTMENTS 


OOOOOO 

00101 

8* 

c 




10000070 

OOOOOO 

00101 

9* 

c 




10000080 

OOOOOO 

00101 

10* 

c 

DESCRIPTION ****** 



10000090 

OOOOOO 

00101 

11* 

c 




10000100 

OOOOOO 

00101 

12* 

c 

SUMS UP THE VOLUME ESTIMATES OF 

ALL 

THE AEROELEMENTS BETWEEN 

10000110 

OOOOOO 

00101 

13* 

c 

'IL' AND 'IH'. 



10000120 

OOOOOO 

00101 

14* 

c 




10000130 

OOOOOO 

00101 

15* 

c- 




10000140 

OOOOOO 

00103 

16* 


INTEGER IL?IH?IS?ID?IE 



10000150 

OOOOOO 

00104 

17* 


REAL VL 



10000160 

OOOOOO 

00105 

18* 


DATA ID/100/ 



10000170 

OOOOOO 

00107 

19* 


DATA IE/1/ 



10000180 

OOOOOO 

00111 

20* 


CALL CHKLH (IL?IH? IS?ID?IE) 


8 CHECK AEROELEMENT RANGE 

10000190 

OOOOOO 

00112 

21* 


IF (IS) 17?32?17 


8 VALIC RANGE ? 

10000200 

000006 

00115 

22* 

17 

VL^O.O 


8 YES? DO THE SUMATION 

10000210 

000010 

00116 

23* 


DO 19 I=IL? IH?IS 


8 

10000220 

000020 

00121 

24* 


CALL CHKTIM (IL?IH?I) 


8 KEEP AN EYE ON THE TIME 


000020 

00122 

25* 

19 

VL=VL+V(I) 


8 

10000230 

000025 

00124 

26* 


CALL SPSHI (0) 


8 PUT END-OF-ARGUMENTS ON 


000034 

00125 

27* 


CALL SPSHI (0) 


8 THE STACK 


000037 

00126 

28* 


CALL PAAI <3? I) 


0 USE 'VL' AS MASTER ACCUM 


000042 

00127 

29* 


GO TO (24?29)?I 


8 PAX GIVE US VALID 'VL' ? 


000046 

00130 

30* 

24 

CALL SPSHR (VL) 


8 YES? LOAD OUR SUB-TOTAL 


000056 

00131 

31* 


CALL SPSHI (1) 


8 AS A LITERAL 


000060 

00132 

32* 


CALL SPSHI (7) 


8 ITEMS ON STACK 


000063 

00133 

33* 


CALL REQSAF (100?1) 


8 LET PAX ADD THE SUB-TOTALS 


000066 

00134 

34* 


RETURN 


8 


000072 

00135 

35* 

29 

CALL SPOPI (I) 


8 CLEAN UP STACK 


000076 

00136 

36* 


CALL SPOPI (I) 


8 


000100 

00137 

37* 


CALL ERR0R2 <100?5) 


8 REPORT BAD ARGUMENT ERROR 


000103 

00140 

38* 

32 

RETURN 


8 


000110 

00141 

39* 


END 



10000250 

000142 


END FOR 

> 


Listing 16. — Subroutine VSUM.. 



8F0R,flS CASPER1 *VCORD 
FOR 4R1 E -04/ 1 7/84-125 48* 11 (If ) 
>8E0F 


SUBROUTINE VCOR ENTRY POINT 000051 


STORAGE USEDt CODE(l) 000070? DATA<0) 000015? BLANK COMMONS) 000000 


EXTERNAL REFERENCES ( BLOCK , NAME) 


0003 

CHKLH 

0004 

CHKTIM 

0005 

V 

0006 

STAESC 

0007 

NERR3$ 


STORAGE ASSIGNMENT ( BLOCK , TYPE, RELATIVE LOCATION, NAME) 

0001 000017 116G 0001 000040 20L 0000 I 000004 I 0000 I 000001 ID 0000 I 000002 IE 

0000 000005 INJP* 0000 I 000000 IS 0000 R 000003 R 0005 R 000000 V 


00101 

1* 


SUBROUTINE VCOR <IL,IH,VL) 


13200010 

000000 

00101 

2* 

C+ 



13200020 

000000 

00101 

3* 

C 



13200030 

000000 

00101 

4* 

C 

VCOR ****** A SUBROUTINE FOR CASPER ****** 

13200040 

000000 

00101 

5* 

C 

AUTHOR WILLIAM HENRY JONES 

13200050 

000000 

00101 

6* 

C 

V01-00 02 FEB 79 


13200060 

000000 

00101 

7* 

C 

V01-00A 08 FEB 80 

SEPARATES INPUTS AND OUTPUT 

000000 

00101 

8* 

C 



13200070 

000000 

00101 

9* 

C 



13200080 

000000 

00101 

10* 

C 

DESCRIPTION ****** 


13200090 

000000 

00101 

11* 

C 



13200100 

000000 

00101 

12* 

C 

APPLIES A SUPPLIED MULTIPLICATIVE CORRECTION TO THE VOLUME 

13200110 

000000 

00101 

13* 

C 

ESTIMATES OF ALL AEROELEMENTS IN THE RANGE 'IL' TO 'IH'. 

13200120 

000000 

00101 

14* 

C 



13200130 

000000 

00101 

15* 

C- 



13200140 

000000 

00103 

16* 


INTEGER IL,IH,IS,ID,IE 


13200150 

000000 

00104 

17* 


REAL VL,R 


13200160 

000000 

00105 

18* 


DATA ID/132/ 


13200170 

000000 

00107 

19* 


DATA IE/1/ 


13200180 

000000 

00111 

20* 


CALL CHKLH (IL,IH,IS,ID,IE> 

8 CHECK AEROELEMENT RANGE 

13200190 

000000 

00112 

21* 


IF (IS) 17,20,17 

8 VALID RANGE ? 

13200200 

000006 

00115 

22* 

17 

DO 19 I=IL,IH,IS 

8 YES, APPLY CORRECTION 

13200210 

000010 

00120 

23* 


CALL CHKTIM <IL,IH,I) 

8 KEEP AN EYE ON THE TIME 


000017 

00121 

24* 


R=VL*V(I) 

8 

13200220 

000024 

00122 

25* 

19 

CALL STAESC (I,R> 

8 RESULT TO SCRATCH SLOT 


000031 

00124 

26* 

20 

RETURN 

8 

13200240 

000040 

00125 

27* 


END 


13200250 

000067 


END FOR 

> 

Listing 17.— Subroutine VCOR. 
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8F0R*MS CASPER1»RH0PRD 
FOR 4R1 E -04/13/84-16:06:31 <2*> 
>0EOF 


SUBROUTINE RHOPRS ENTRY POINT 000073 


STORAGE USED: CODE(l) 000110? DATA(O) 000017? BLANK C0MH0N<2) 000000 


EXTERNAL REFERENCES (BLOCK* NAME) 


0003 

M 

0004 

CHKLH 

0005 

CHKTIM 

0006 

V 

0007 

STRHO 

0010 

T 

0011 

GASLAW 

0012 

STP 

0013 

NERR3* 


STORAGE ASSIGNMENT (BLOCK* TYPE* RELATIVE LOCATION, NAME) 


0001 000017 116G 

0000 I 000002 IE 
0010 R 000000 T 


0001 000062 22L 

0000 000007 INJP$ 

0000 R 000005 TEMP 


0000 R 000004 DENS 
0000 I 000000 IS 
0006 R 000000 V 


0000 I 000003 I 
0003 R 000000 M 


0000 I 000001 ID 
0000 R 000006 PRES 


00101 

1* 


SUBROUTINE RHOPRS (IL*IH) 


3 7600010 

000000 

00101 

2* 

C+ 



17600020 

000000 

00101 

3* 

C 



17600030 

000000 

00101 

4* 

C 

RHOPRS ****** A SUBROUTINE FOR CASPER ****** 

17600040 

000000 

00101 

5* 

C 

AUTHOR WILLIAM HENRY JONES 

17/00050 

000000 

00101 

6* 

c 

V01-00 02 FEB 79 


17600060 

000000 

00101 

7* 

c 

V01-00A 11 FEB 80 

ADD TIME CHECK 


000000 

00101 

8* 

c 

VOl-OOB 15 SEP 80 

FUNCTION TYPE STATEMENT 


000000 

00101 

9* 

c 



17600070 

000000 

00101 

10* 

c 



17600080 

000000 

00101 

11* 

c 

DESCRIPTION ****** 


17600090 

000000 

00101 

12* 

c 



17600100 

000000 

00101 

13* 

c 

FOR ALL AEROELEMENTS IN THE RANGE 

'IL' TO ' IH' , 1) CALCULATES 

17600110 

000000 

00101 

14* 

c 

DENSITY BASED ON MASS AND VOLUME* 

AND 2) CALCULATES PRESSURE 

17600120 

000000 

00101 

15* 

c 

BASED ON TEMPERATURE AND DENSITY AND A CALL TO SUBROUTINE 

17600130 

000000 

00101 

16* 

c 

'GASLAW' (WHICH MAY BE USER SUPPLIED). 

17600140 

000000 

00101 

17* 

c 



17600150 

000000 

00101 

18* 

c- 



17600160 

000000 

00103 

19* 


INTEGER IL*IH*IS*ID*1E 


17600170 

000000 

00104 

20* 


REAL M 



000000 

00105 

21* 


DATA ID/176/ 


17600180 

000000 

00107 

22* 


DATA IE/1/ 


17600190 

000000 

00111 

23* 


CALL CHKLH (IL*IH,IS*IB*IE) 

8 CHECK AEROELEMENT RANGE 

17600200 

000000 

00112 

24* 


IF (IS) 16*22*16 

@ VALID RANGE ? 

17600210 

000006 

00115 

25* 

16 

DO 21 I=IL*IH* IS 

8 YES* DO THEM 

17600220 

000010 

00120 

26* 


CALL CHKTIM (IL*IH*I) 

8 KEEP AN EYE ON THE TIME 


000017 

00121 

27* 


DENS=M(I)/V(I) 

8 CALC DENSITY 

17600230 

000024 

00122 

28* 


CALL STRHO (I*BENS) 

8 UPDATE DATA BASE 

17600240 

000035 

00123 

29* 


TEMP=T(I ) 

8 TEMPERATURE 

17600250 

000041 

00124 

30* 


CALL GASLAW (PRES* BENS* TEMP* I) 

8 USE SOMEBODY'S GAS LAW 

17600260 

000045 

00125 

31* 

21 

CALL STP (I*PRES) 

8 UPDATE DATA BASE 

17600270 

000053 

00127 

32* 

22 

RETURN 

8 

17600280 

000062 

00130 

33* 


END 


17600290 

000107 


END FOR 

> 


Listing 18. — Subroutine RHOPRS. 


8F0RfMS CASPER 1 *GASLAD 

FOR 4R1 E -04/17/84-12:58:57 (0 t) 

>8E0F 


SUBROUTINE GASLAW ENTRY POINT 000012 


STORAGE USED: CODE(l) 000016? DATA(O) 000004? BLANK COMMONS) 000000 
COMMON blocks: 

0003 GASCON 000001 

EXTERNAL REFERENCES (BLOCK* NAME) 

0004 NERR3$ 


STORAGE ASSIGNMENT (BLOCK* TYPE* RELATIVE LOCATION* NAME) 
0000 000000 INJP$ 0003 R 000000 R 


00101 

1* 


SUBROUTINE GASLAW (PR*RH*TP*ID) 

000000 

00101 

2ft 

C+ 


000000 

00101 

3ft 

C 


000000 

00101 

4ft 

C 

GASLAW ****** A SUBROUTINE FOR CASPER ****** 

000000 

00101 

5* 

C 

AUTHOR WILLIAM HENRY JONES 

000000 

00101 

6ft 

C 

V01-00 22 OCT 80 

000000 

00101 

7* 

C 


000000 

00101 

8ft 

C 


000000 

00101 

9ft 

C 

DESCRIPTION ****** 

000000 

00101 

10* 

C 


000000 

00101 

11* 

c 

THIS ROUTINE CALCULATES THE IDEAL GAS LAW* 

000000 

00101 

12* 

c 


000000 

00101 

13* 

c 

PR PRESSURE 

000000 

00101 

14* 

c 

RH DENSITY 

000000 

00101 

15* 

c 

TP TEMPERATURE 

000000 

00101 

16ft 

c 

ID ELEMENT ID (IGNORED) 

000000 

00101 

17* 

c 


000000 

00101 

18ft 

c 

THUS 

000000 

00101 

19* 

c 


000000 

00101 

20* 

c 

PR = RH ft TP ft R 

000000 

00101 

21ft 

c 


000000 

00101 

22ft 

c 

WHERE R IS THE IDEAL GAS CONSTANT* THE FOLLOWING ARE APPROPRIATE 

000000 

00101 

23* 

c 

CONSTANTS FOR VARIOUS UNITS OF MEASURE: 

000000 

00101 

24ft 

c 


000000 

00101 

25ft 

c 

53 * 352000 ( FT-LBF ) / ( LBM-DEGREES R ) 

000000 

00101 

26ft 

c 

1716*5473 ( FT-LBF ) / ( SLUG-DEGREES R) 

000000 

00101 

27ft 

c 

88 . 595808 ( NT-M ) / ( KG-DEGRESS K ) 

000000 

00101 

28ft 

c 


000000 

00101 

29ft 

c 


000000 

00101 

30* 

c 

THIS ROUTINE IS INITIALIZED FOR ( NT-M ) / ( KG-DEGRESS K>? HOUEVERr 

000000 

00101 

31ft 

c 

THIS MAY BE ALTERED BY THE PAX/CASPER WORKER STARTUP 

000000 

00101 

32* 

c 

INITIALIZATION PROCESS* 

000000 

00101 

33ft 

c 


000000 

00101 

34ft 

c- 


000000 

00103 

35ft 


COMMON /GASCON/R 8 FOR EASY INITIALIZATION 

000000 

00104 

36* 


REAL PRfRHrTPjR 0 SO EASY I ONLY HAD TO TRY 

000000 

00105 

37ft 


DATA R/88* 595808/ 8 3 TIMES TO GET IT RIGHT 

000000 

00107 

38ft 


PR-RH*TP*R 8 

000000 

00110 

39ft 


RETURN 8 

000003 

00111 
END FOR 

> 

40* 


END 8 

000015 
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8F0R?MS CASPER1 .FNBNED 
FOR 4R1 E -04/13/84-16:24:54 (2 ») 
>8 EOF 


SUBROUTINE FNBNE ENTRY POINT 000707 


STORAGE USED: CODE(l) 000736? DATA(O) 030116? BLANK C0MM0N<2> 000000 


EXTERNAL REFERENCES (BLOCK » NAME) 


0003 

ELNK 

0004 

F2 

0005 

PNEIZN 

0006 

CHKIH 

0007 

WERR2 

0010 

TREE2 

0011 

X 

0012 

NEI 

0013 

IF'LZN 

0014 

NEIZN 

0015 

STNEI 

0016 

CHKTIM 

0017 

NERR2I 

0020 

SORT 

0021 

NERR3* 


STORAGE ASSIGNMENT (BLOCK* TYPE* RELATIVE LOCATION* NAME) 


0001 

000047 1000L 

0001 


000110 

1010L 

0001 


000147 1025L 

0001 


000152 

1050L 

0001 


000200 

1055L 

0001 

000207 1075L 

0001 


000267 

1088L 

0001 


000276 1100L 

0001 


000324 

1300L 

0001 


000345 

1303L 

0001 

000402 131 1L 

0001 


000410 

1400L 

0001 


000055 170G 

0001 


000432 

2000L 

0001 


000473 

2012L 

0001 

000512 2025L 

0001 


000542 

2032L 

0001 


000112 2046 

0001 


000600 

2040L 

0001 


000615 

2044L 

0001 

000623 2046L 

0001 


000124 

212G 

0001 


000023 225L 

0001 


000035 

228L 

0001 


000225 

245G 

0001 

000245 255G 

0001 


000356 

312G 

0001 


000434 340G 

0001 


000476 

363G 

0001 


000521 

3736 

0001 

000533 400G 

0001 


000551 

412G 

0001 


000567 421G 

0001 


000610 

4346 

0001 


000627 

446G 

0001 

000656 7L 

0000 

R 

006405 

AET 

0003 

I 

000000 ELNK 

0004 

I 

000000 

FZ 

0000 

I 

006367 

I 

0000 

I 006362 ICC 

0000 

I 

006370 

IEP 

0000 

I 

006361 IERC 

0000 

I 

006373 

IFZBAS 

0000 


030074 

INJP$ 

0013 

I 000000 IPLZN 

0000 

I 

006363 

1ST 

0000 

I 

006365 ITAR 

0000 

I 

006364 

IT ARC 

0000 

I 

006402 

IZEP 

0000 

I 006401 IZLC 

0000 

I 

006400 

IZLP 

0000 

I 

006371 J 

0000 

I 

006372 

JECNT 

0000 

I 

006375 

JENEP 

0000 

I 006374 JENEU 

0000 

I 

000000 

JES 

0000 

I 

006366 JESP 

0000 

I 

006405 

JET 

0000 

I 

006200 

JZS 

0000 

I 006403 JZSP 

0000 

I 

006376 

K 

0000 

I 

006377 L 

0000 

I 

006344 

LNEI 

0012 

I 000000 

NEI 

0014 

I 000000 NEIZN 

0005 

I 

000000 

PNEIZN 

0000 R 

006404 R 

0000 R 006354 

RNEI 

0011 

R 000000 

X 

0000 

R 006351 XBAS 

















00101 

1* 


SUBROUTINE FNBNE (ILO,IHI* JCC*IR) 


000000 

00101 

2* 

C+ 



000000 

00101 

3* 

C 



000000 

00101 

4* 

c 

FNBNE ****** A SUBROUTINE FOR CASPER ****** 


000000 

00101 

5* 

c 

AUTHOR WILLIAM HENRY JONES 


000000 

00101 

6* 

c 

1015 X01.00 23 JAN 83 


000000 

00101 

7* 

c 

X01 »00A 15 FEB 83 TYPO 

X01.00A 

000000 

00101 

8* 

c 

X01.00B 17 MAR 83 INDEX TYPO 

X01.00B 

000000 

00101 

9* 

c 



000000 

00101 

10* 

c 



000000 

00101 

11* 

c 

DESCRIPTION ****** 


000000 

00101 

12* 

c 



000000 

00101 

13* 

c 

FNBNE (FIND BY NEIGHBOR ELEMENTS) UPDATES THE NEAREST NEIGHBORS 


000000 

00101 

14* 

c 

LIST FOR EACH AERQELEMENT IN THE RANGE ILO TO IHI. NEAREST 


000000 

00101 

15* 

c 

NEIGHBOR CANDIDATES ARE TAKEN FROM THE TARGET ELEMENT'S LISTED 


000000 

00101 

16* 

c 

NEIGHBORS f THE NEIGHBORS OF THE NEIGHBORS? AND SO 0N> UNTIL AT 


000000 

00101 

17* 

c 

LEAST JCC (CANDIDATE COUNT) INDEPENDENT (NON-REDUNI'ANT) ELEMENTS 


000000 

00101 

18* 

c 

HAVE BEEN CONSIDERED, 


000000 

00101 

19* 

c 



000000 

00101 

20* 

c 

IT IS POSSIBLE THAT THE NEIGHBORS-OF-NEIGHBORS-OF-NEIGHBORS 


000000 

00101 

21* 

c 

SCHEME WILL FAIL TO PRODUCE JCC CANDIDATE ELEMENTS > IN THIS 


000000 


Listing 20.— Subroutine FNBNE. 


00101 

22* 

C 

EVENT, CANDIDATE ELEMENTS ARE DRAWN FROM THE TARGET ELEMENT'S 

000000 

00101 

23* 

c 

FLOW ZONE 

ANDi THEN, FROM THAT FLOW ZONE'S NEIGHBORS. IF 

000000 

00101 

24* 

c 

THIS IS NECESSARY t THE REQUIREMENT FOR JCC CANDIDATE ELEMENTS 

000000 

00101 

25* 

c 

IS WAIVED 



000000 

00101 

26* 

c 




000000 

00101 

27* 

c 




000000 

00101 

28* 

c 




000000 

00101 

29* 

c 




000000 

00101 

30* 

c 

INPUT INFORMATION ****** 


000000 

00101 

31* 

c 




000000 

00101 

32* 

c 

QUANTITY 

TYPE DIMENSION 

DESCRIPTION 

000000 

00101 

33* 





000000 

L 




00101 

34* 

c 

X 

REAL 1 TO ISIZE 

AEROELEMENT POSITION IN 

000000 

00101 

35* 

c 


1 TO 3 

SPACE 

000000 

00101 

36* 

c 




000000 

00101 

37* 

c 

NEI 

INTEGER 1 TO ISIZE 

AEROELEMENT NEAREST 

000000 

00101 

38* 

c 


1 TO 5 

NEIGHBOR LIST 

000000 

00101 

39* 

c 




000000 

00101 

40* 

c 

ELNK 

INTEGER 1 TO ISIZE 

AEROELEMENT LINKAGES 

000000 

00101 

41* 

c 


1 TO 3 

( ,1) POINTER TO NEXT 

000000 

00101 

42* 

c 



ELEMENT IN FLOW 

000000 

00101 

43* 

c 



ZONE 

000000 

00101 

44* 

c 




000000 

00101 

45* 

c 

IPLZN 

INTEGER 1 TO NZN 

FLOW ZONE RESIDENT ELEMENT 

000000 

00101 

46* 

c 


1 TO 6 

LINKAGE HEAD 

000000 

00101 

47* 

c 



( ,4) PTR TO FIRST ELEMENT 

000000 

00101 

48* 

c 



( ,5) NUMBER OF ELEMENTS 

000000 

00101 

49* 

c 



( ,6) PTR TO LAST ELEMENT 

000000 

00101 

50* 

c 




000000 

00101 

51* 

c 

FZ 

INTEGER 1 TO ISIZE 

FLOW ZONE OF ELEMENT 

000000 

00101 

52* 

c 




000000 

00101 

53* 

c 

NEIZN 

INTEGER 1 TO NEIZSZ 

FLOW ZONE NEIGHBOR LISTS 

000000 

00101 

54* 

c 




000000 

00101 

55* 

c 

PNEIZN 

INTEGER 1 TO NZN 

NEIZN CONTROL INFO 

000000 

00101 

56* 

c 



( ,1) STARTING POINT 

DOOOOO 

00101 

57* 

c 



( ,2) NUMBER OF NEIGHBORS 

OOOOOO 

00101 

58* 

c 




000000 

00101 

59* 

c 




000000 

00101 

60* 

c 




000000 

00101 

61* 

c 




000000 

00101 

62* 

c 

ERRORS REPORTED BY THIS ROUTINE 


000000 

00101 

63* 

c 




000000 

00101 

64* 

c 

CODE 

ERROR 


000000 

00101 

65* 

r* 




000000 

u 




00101 

66* 

c 

1 

ILO <1 


000000 

00101 

67* 

c 




000000 

00101 

68* 

c 

2 

ILO >ISIZE 


000000 

00101 

69* 

c 




000000 

00101 

70* 

c 

3 

IHI <1 


000000 

00101 

71* 

c 




000000 

00101 

72* 

c 

4 

IHI >ISIZE 


000000 

00101 

73* 

c 




000000 

00101 

74* 

c 

5 

CANDIDATE COUNT TOO LOW 

(OPERATION CONTINUES) 

000000 

00101 

75* 

c 




000000 

00101 

76* 

c 

6 

CANDIDATE COUNT TOO HIGH 

(OPERATION CONTINUES) 

000000 

00101 

77* 

c 




000000 

00101 

78* 

c 

7 

COULD NOT INSERT TARGET AEROELEMENT IN AEROELEMENT 

000000 

00101 

79* 

c 


TREE (TREE MECHANISMS FAULT) ♦ 

000000 

00101 

80* 

c 




000000 

00101 

81* 

c 




000000 

00101 

82* 

c 




000000 

00101 

83* 

c 




000000 

00101 

84* 

c 

DEFINED RETURN SWITCH (IR) VALUES 


000000 

00101 

85* 

c 




000000 

00101 

86* 

c 

VALUE 

MEANING 


000000 

00101 

87* 

0 




000000 





00101 

88* 

c 

1 

SUCCESS 


000000 

00101 

89* 

r* 

2 

FAILURE 


000000 

00101 

90* 

c 




000000 

00101 

91* 

c 

FORMAT OF 

AEROELEMENT TREE 


000000 

00101 

92* 

c 




000000 

00101 

93* 

c 

A BINARY TREE IS CONSTRUCTED FOR THE PURPOSE OF ELIMINATING 

000000 
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00101 

00101 

00101 
fifll A1 

94* 

95* 

96* 

07* 

C 

C 

C 

r 

REDUNDANT ELEMENTS* ITS FORMAT IS 
INDEX CONTENTS 

as follows: 

000000 

000000 

000000 






000000 

00101 

98* 

c 

1 LENGTH OF AN ENTRY 


000000 

00101 

99* 

c 

2 POINTER TO FIRST FREE 

ENTRY 

000000 

00101 

100* 

c 

3 NUMBER OF FREE ENTRIES 

REMAINING 

000000 

00101 

101* 

c 

4 COMPARISON CONTROL CODE 

000000 

00101 

102* 

c 

5 POINTER TO FIRST ENTRY 

, IPTR, 0 => NONE 

000000 

00101 

103* 

c 

♦ ♦ * 


000000 

00101 

104* 

c 

IPTR -> < BRANCH POINTER, 0 => 

NONE 

000000 

00101 

105* 

c 

+1 > BRANCH POINTER, 0 => 

NONE 

000000 

00101 

106* 

c 

+2 PREVIOUS ENTRY POINTER 

, 0 => NONE 

000000 

00101 

107* 

c 

+3 INFORMATION WORD 


000000 

00101 

108* 

c 

+4 ELEMENT ID 


000000 

00101 

109* 

c 

+5 ELEMENT X( ,1) 


000000 

00101 

110* 

c 

+6 ELEMENT X( ,2) 


000000 

00101 

111* 

c 

+7 ELEMENT X< ,3) 


000000 

00101 

112* 

c 

+8 ELEMENT'S FLOW ZONE II 


000000 

00101 

113* 

c 



000000 

00101 

114* 

c 



000000 

00101 

115* 

c- 



000000 

00103 

116* 


PARAMETER 0URID=106 0 CASPER CATALOG ID 

000000 

00104 

117* 


PARAMETER NNNEI=5 0 NUMBER OF NEAREST NEIGHBORS 

000000 

00105 

118* 


INCLUDE TREE 0 


000000 

00120 

119* 


PARAMETER NNNEIM=NNNEI-1 0 


000000 

00121 

120* 


PARAMETER ERCCL=5 0 ERROR -- 

CANDIDATE COUNT TOO LOW 

000000 

00122 

121* 


PARAMETER ERCCH=6 0 ERROR — 

CANDIDATE COUNT TOO HIGH 

000000 

00123 

122* 


PARAMETER JETNE=1000 0 ELEMENT 

TREE ~ NUMBER OF ENTRIES 

000000 

00124 

123* 


PARAMETER JETFF=6 0 ELEMENT 

TREE — FIRST FREE ENTRY 

000000 

00125 

124* 


PARAMETER JETL£=9 0 ELEMENT 

TREE — LENGTH OF ENTRY 

000000 

00126 

125* 


PARAMETER JETAL=< JETNE*JETLE)+JETFF-1 0 LENGTH OF JET ARRAY 

000000 

00127 

126* 


PARAMETER JE5AL=3200 0 SIZE OF 

ELEMENT STACK 

000000 

00130 

127* 


PARAMETER JZSAL=100 0 TEMPORARY ZONE STORAGE 

000000 

00131 

128* 


INTEGER JET(JETAL) 0 ELEMENT 

TREE TABLE 

000000 

00132 

129* 


INTEGER JES(JESAL) 0 ELEMENT 

STACK 

000000 

00133 

130* 


INTEGER JZS(JZSAL) 0 


000000 

00134 

131* 


INTEGER ELNK 0 


000000 

00135 

132* 


INTEGER LNEI (NNNEI ) 0 LOCAL NEAREST NEIGHBORS LIST 

000000 

00136 

133* 


INTEGER FZ 0 


000000 

00137 

134* 


INTEGER PNEIZN 0 


000000 

00140 

135* 


REAL XBAS<3> 0 TARGET AEROELEMENT'S POSITION 

000000 

00141 

136* 


REAL RNEI(NNNEI) 0 LOCAL NEAREST NEIGHBOR RADIAL DISTANCES 

000000 

00142 

137* 


REAL AET(JETAL) 0 REAL ACCESS TO JET 

000000 

00143 

138* 


EQUIVALENCE (JET(l) rAET(l>) 

0 

000000 

00144 

139* 


IERC=1 

0 INIT ERROR COUNTER 

000000 

00145 

140* 


IR=1 

0 ASSUME SUCCESS 

000001 

00146 

141* 


ICC=JCC 

0 DUMMY UP 

000002 

00147 

142* 


CALL CHKLH (ILO,IHI,IST,OURID,IERC) 0 CHECK DO-LOOP RANGE 

000004 

00150 

143* 


IERC=i 

0 RESET ERROR COUNTER 

000013 

00151 

144* 


IF (IST)225,202,225 

0 ANY ERROR ? 

000015 

00154 

145* 

202 

RETURN 

0 YES 

000017 

00155 

146* 

225 

IF (ICC-6) 226,228,228 

0 ENFORCE A MINIMUM CANDIDATE 

000023 

00160 

147* 

226 

ICC=6 

0 COUNT 

000026 

00161 

148* 


CALL WERR2 (OURIB,ERCCL> 

0 

000030 

00162 

149* 

228 

IF ( ICC+l-JETNE) 1000,1000,229 

0 ALWAYS LEAVE SPACE IN TREE 

000035 

00165 

150* 

229 

ICC=JETNE-1 

0 FOR TARGET ELEMENT ENTRY TO 

000040 

00166 

151* 


CALL WERR2 (OURID,ERCCH) 

0 AVERT TARGET-TO-TARGET 

000042 

00167 

152* 

1000 

DO 2100 ITARG=ILO,IHI, 1ST 

0 DO EACH ELEMENT IN RANGE 

000047 

00172 

153* 


ITAR=ITARG 

0 DUMMY UP FOR DEC 

000055 

00173 

154* 


JET(IETLE)=JETLE 

0 INIT TREE — ENTRY LENGTH 

000057 

00174 

155* 


JET(IETFF)=JETFF 

0 FIRST FREE ENTRY 

000061 

00175 

156* 


JET(IETFC)=JETNE 

0 FREE ENTRY COUNT 

000063 

00176 

157* 


JET ( IETCC)=-1 

0 COMPARE BY INTEGERS 

000065 

00177 

158* 


JET ( IETVE)=0 

0 NO ENTRIES YET 

000067 

00200 

159* 


JESP=0 

0 RESET ELEMENT STACK 

000070 

00201 

160* 


CALL TREE2 (I,IEP,ITAR,JET) 

0 ENTER TARGET ELEMENT 

000071 

00202 

161* 


GO TO (1010, 1010, 7), I 

0 CHECK RESULT JUST IN CASE 

000077 

00203 

162* 

1010 

DO 1012 I--1 ,3 

0 PICK UP AEROELEMENT'S 

000112 

00206 

163* 


XBAS( I )=X(ITAR,I ) 

0 POSITION X01.00B 

000112 

00207 

164* 

1012 

CONTINUE 

0 

000124 

00211 

165* 


DO 1017 1=1,5 

0 PICK UF AEROELEMENT'S 

000124 
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00214 

166* 


J=I 

8 NEAREST NEIGHBORS AND PUT 

000124 

00215 

167* 


JESP=JESP+1 

0 ON POSSIBILITY STACK 

000126 

00216 

168* 


JES(JESP)=NEI(ITAR*J) 

8 

000131 

00217 

169* 

1017 

CONTINUE 

8 

000141 

00221 

170* 


JECNT=0 

8 CLEAR ENTRY COUNT 

000141 

00222 

171* 


IFZBAS=FZ(ITAR) 

8 RECORD TARGET'S FLOW ZONE 

000142 

00223 

172* 

1025 

JENEW=0 

0 CLEAR NEW ENTRY COUNT 

000147 

00224 

173* 


JENEP=JET(IETFF) 

e POINT TO FIRST NEW ENTRY 

000147 

00225 

174* 

1050 

IF (JESP) 1075*1075* 1051 

0 ANYTHING ON STACK ? 

000152 

00230 

175* 

1051 

I=JES(JESP) 

0 YES* POP ELEMENT POSSIBILITY 

000155 

00231 

176* 


JESP=JESP-1 

0 ID OFF THE STACK 

000157 

00232 

177* 


CALL TREE2 (J*IEP*I* JET) 

0 INSERT IN THE TREE IF NEW 

000161 

00233 

178* 


GO TO ( 1050* 1055*2000) *J 

0 WAS IT A NEW ENTRY ? 

000167 

00234 

179* 

1055 

JENEW=JENEW+1 

0 YES* BUMP COUNT OF NEW 

000200 

00235 

130* 


JECNT=JECNT+1 

0 BUMP OVERALL COUNT* TOO 

000202 

00236 

181* 


GO TO 1050 

0 

000205 

00237 

182* 

1075 

IF (JENEW) 1100*1100*1076 

0 ANY NEW ELEMENTS LEFT ? 

000207 

00242 

183* 

1076 

I=JENEP+IEVA 

0 YES* POINT TO ELEMENT ID 

000211 

00243 

184* 


J=JET (I) 

0 GET ELEMENT ID X01.00A 

000216 

00244 

185* 


DO 1081 K=l*3 

0 GET ELEMENT'S POSITION 

000225 

00247 

186* 


L=K 

0 AND RECORD IN THE ENTRY 

000225 

00250 

187* 


AET(I+K)=X(J*L> 

0 

000227 

00251 

188* 

1081 

CONTINUE 

0 

000236 

00253 

189* 


JET ( I+4)=FZ( J) 

0 RECORD ZONE* TOO 

000236 

00254 

190* 


DO 1087 K-l *5 

8 TRANSFER THE ELEMENT'S 

000245 

00257 

191* 


L=K 

0 NEIGHBORS TO THE CANDIDATE 

000245 

00260 

192* 


IF (JESP-JESAL) 1085*1088*1088 

8 STACK (UNTIL THE STACK 

000247 

00263 

193* 

1085 

JESP=JESP+1 

8 FILLS UP* VERY UNLIKELY) 

000253 

00264 

194* 


JES( JESP)=NEI ( J*L) 

0 

000256 

00265 

195* 

1087 

CONTINUE 

0 

000267 

00267 

196* 

1088 

JENEW=JENEW-1 

0 ONE LESS 'NEW' ENTRY 

000267 

00270 

197* 


JENEP=JENEP+JET(IETLE) 

0 POINT TO NEXT ENTRY 

000271 

00271 

198* 


GO TO 1075 

0 GO THROUGH ALL 'NEW' ENTRIES 

000274 

00272 

199* 

1100 

IF (JECNT-ICC) 1101*2000*2000 

0 ENOUGH CANDIDATES ? 

000276 

00275 

200* 

1101 

IF (JESP) 1200*1200*1025 

0 NO* PROCESS STACK IF NONNULL 

000301 

00275 

201* 

C+ 



000301 

00275 

202* 

C 

THIS SECTION LOCATES CANDIDATE ELEMENTS BY SEARCHING FLOW ZONE 

000301 

00275 

203* 

C 

RESIDENT LISTS. THE FIRST FLOW ZONE USED IS THE TARGET ELEMENT'S 

000301 

00275 

204* 

c 

FLOW ZONE OF RESIDENCE. THEN A FLOW ZONE NEIGHBORS OF NEIGHBORS 

000301 

00275 

205* 

c 

OF NEIGHBORS SCHEME IS USED TO LOCATE ADDITIONAL FLOW ZONES. 

000301 

00275 

206* 

c- 



000301 

00300 

207* 

1200 

IZLF=FNEIZN( IFZBAS* 1 ) 

0 INIT ZONE'S NEIGHBOR CONTROL 

000304 

00 301 

208* 


IZLC=PNE.!ZN< IFZBAS»2) 

0 

000311 

00302 

209* 


IZEP=IPLZN( IFZBAS *4) 

8 POINT TO ZONE'S FIRST EL 

000316 

00303 

210* 

1300 

IF ( IZEP) 1400*1400*1301 

0 GOT AN ELEMENT ? 

000324 

00306 

211* 

1301 

CALL TREE2 (J*I*IZEP* JET) 

0 YES* PUT IT IN THE TREE 

000326 

00307 

212* 


GO TO (1311*1303*2000) *J 

8 A NEW TREE ENTRY ? 

000334 

00310 

213* 

1303 

J=I+IEVA 

0 YES 

000345 

00311 

214* 


DO 1307 K=1 *3 

8 TRANSFER ITS POSITION TO 

000347 

00314 

215* 


L=K 

0 THE TREE ENTRY 

000356 

00315 

216* 


AET ( J+K > =X ( I ZEP * L ) 

0 

000360 

00316 

217* 

1307 

CONTINUE 

0 

000367 

00320 

218* 


JET ( J+4 ) =FZ ( IZEP ) 

0 RECORD ZONE* TOO 

000367 

00321 

219* 


JECNT=JECNT+1 

0 BUMP ENTRY COUNT 

000373 

00322 

220* 


IF (JECNT-ICC) 1311*2000*2000 

0 ENOUGH ENTRIES ? 

000376 

00325 

221* 

1311 

IZEP=ELNK( IZEP* 1 ) 

0 NO* LOOK FOR NEXT ELEMENT 

000402 

00326 

222* 


GO TO 1300 

0 

000406 

00327 

223* 

1400 

IF (IZLC) 2000*2000*1401 

8 ANY MORE NEIGHBOR ZONES ? 

000410 

00332 

224* 

1401 

IZLC=IZLC-1 

0 YES* ONE LESS NOW 

000412 

00333 

225* 


I=NEIZN(IZLP) 

0 GET NEIGHBOR'S ID 

000414 

00334 

226* 


IZLP=IZLP+1 

0 POINT TO NEXT 

000420 

00335 

227* 


IZEP=IPLZN(I*4) 

0 POINT TO FIRST ELEMENT 

000423 

00336 

228* 


GO TO 1300 

0 

000430 

00336 

229* 

C+ 



000430 

00336 

230*, 

C 

THE F0LUMM*J^J^S THE FINAL 

SELECTION OF NEAREST NEIGHBORS 

000430 

00336 

231** 

C 

FROM Ynt rWuPftiTON IN THE ELEMENT 

TREE. 

000430 

00336 

232* 

c- 



000430 

00337 

233* 

2000 

DO 2003 I=1*NNNEI 

0 INIT LOCAL NEIGHBOR 

000434 

00342 

234* 


LNEI(I)=I 

8 SELECTION TABLES 

000434 

00343 

235* 


RNEI (I)=l .0E+30 

0 

000436 

00344 

236* 

2003 

CONTINUE 

0 

000442 

00346 

237* 


JENEP=JETFF+JETLE 

0 SKIP OVER TARGET'S ENTRY 

000442 
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00347 

238* 


JZSP=1 


0 PUT TARGET AERQELENENT'S 

000444 

00350 

239* 


JZS ( JZSP ) =IFZBAS 


0 FLOU ZONE ON ZONE STACK 

000447 

00351 

240* 


J=PNEIZN(IFZBAS, 1 ) 


0 PUT AS MANY NEIGHBORS OF 

000451 

00352 

241* 


K=PNEIZN< IFZBAS,2) 


0 THAT ZONE ON THE STACK 

000456 

00353 

242* 


IF <K) 2025,2025,2010 


0 AS WILL FIT 

000463 

00356 

243* 

2010 

IF (K-JZSAL) 2012,2011, 

2011 

0 

000465 

00361 

244* 

2011 

K=JZSAL-1 


0 

000470 

00362 

245* 

2012 

DO 2016 L=1,K 


0 

000473 

00365 

246* 


JZSP=JZSP+1 


0 

000476 

00366 

247* 


JZS< JZSP)=NEIZN( I) 


0 

000500 

00367 

248* 


I-I+l 


0 

000505 

00370 

249* 

2016 

CONTINUE 


0 

000512 

00372 

250* 

2025 

DO 2046 1=1 , JECNT 


0 LOOK AT EACH CANDIDATE 

000512 

00375 

251* 


J=JENEP+IEVA 


0 POINTER CANDIDATE'S ID 

000521 

00376 

252* 


JENEP=JENEP+JETLE 


0 POINT TO NEXT ENTRY 

000524 

00377 

253* 


DO 2030 K=l, JZSP 


0 CANDIDATE MUST BE IN A GOOD 

000533 

00402 

254* 


IF ( JZS(K)-JET< J+4) ) 2030,2032,2030 0 FLOW ZONE TO BE CONSIDERED 

000533 

00405 

255* 

2030 

CONTINUE 


0 

000540 

00407 

256* 


GO TO 2046 


0 OOPS* CLOSE YOUR EYES, MARY 

000540 

00410 

257* 

2032 

R=0»0 


0 ZAF RADIAL DISTANCE 

000542 

00411 

258* 


DO 2034 K=1 ,3 


0 CALC DISTANCE FROM TARGET 

000542 

00414 

259* 

2034 

R=R+ ( ( AET ( J+K ) -XBAS ( K ) ) #*2 ) 

0 TO CANDIDATE 

000552 

00416 

260* 


R=SQRT(R) 


0 

000556 

00417 

261* 


L=NNNEI+1 


0 L BECOMES POSITION NUMBER OF 

000562 

00420 

262* 


DO 2039 K=NNNEI ,1 ,-l 


0 CLOSEST NEIGHBOR BESTED BY 

000567 

00423 

263* 


IF (R-RNEI (K) ) 2039,2039,2040 

0 THE CANDIDATE POSITION 

000567 

00426 

264* 

2039 

L=K 


0 

000573 

00430 

265* 

2040 

IF (L-NNNEI ) 2041,2044, 

2046 

0 ANY REPLACEMENT ? 

000600 

00433 

266* 

2041 

DO 2043 K=NNNEIM,L,-1 


0 YES, LEFT FURTHER NEIGHBORS 

000603 

00436 

267* 


LNEI (K+1)=LNEI (K) 


0 UP ONE 

000610 

00437 

268* 

2043 

RNEKKf 1)=RNEI(K) 


0 

000611 

00441 

269* 

2044 

LNEI(L)=JET( J) 


0 SLIP NEW NEIGHBOR INTO 

000615 

00442 

270* 


RNEI (L)=R 


0 POSITION 

000620 

00443 

271* 

2046 

CONTINUE 


0 

000627 

00445 

272* 


DO 2053 1=1,5 


0 TRANSFER RESULTS TO TARGET 

000627 

00450 

273* 


J=I 


0 ELEMENT'S STORAGE AREA 

000627 

00451 

274* 


CALL STNEI < ITAR, J,LNEI ( J) > 

0 

000631 

00452 

275* 

2053 

CONTINUE 


0 

000643 

00454 

276* 


CALL CHKTIM ( ILO, IHI , ITAR) 

0 KEEP AN EYE ON THE TIME 

000643 

00455 

277* 

2100 

CONTINUE 


0 END OF TARGET LOOP 

000652 

00457 

278* 


RETURN 


0 THAT'S ALL !» 

000652 

00457 

279 * 

C+ 




000652 

00457 

280* 

c 

ERROR REPORTING 



000652 

00457 

281* 

c- 




000652 

00460 

282* 

7 

IERC=IERC+6 

0 FAILED 

TO INSERT TARGET ELEMENT 

000656 

00461 

283* 


IR=2 

0 SET FAILURE RETURN 

000660 

00462 

284* 


CALL WERR2 (OURIBrIERC) 

i 0 REPORT 

ERROR 

000662 

00463 

285* 


RETURN 

0 


000666 

00464 

286* 


END 

0 


000735 

END FOR 
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